Multi purpose script: (run Sub based on syntax call)

'This is to have a script perform different functions based on parameters being fed.
'Was given by Neila (Jan 27,2000)

'The following Script is called from Syntax using: .
'Script "D:\\Test\\ScrPar.sbs" ("0").
'Script "D:\\Test\\ScrPar.sbs" ("1").

'SCRIPT FILE SCRPAR.SBS
Public Sub Main ()
 Dim strParam As String
 strParam = objSpssApp.ScriptParameter(0)
 Select Case strParam
  Case "0"
   Call Sub0
  Case "1"
   Call Sub1
  '......
 End Select
End Sub

Private Sub Sub0()
 MsgBox "Running Sub 0"
End Sub

Private Sub Sub1()
 MsgBox "Running Sub 1"
End Sub