В VB6.0 я делаю это так:

Sub main()
Dim ins As String
Dim s() As String
Dim x As Integer

ins = Command
s() = Split(ins, " ")
For x = 0 To UBound(s)
msgbox s(x)
Next

End Sub

set arg=WScript.Arguments
for x=0 to arg.Count-1
Wscript.Echo arg(x)
next

set arg=WScript.Arguments
for x=0 to arg.Count-1
Wscript.Echo arg(x)
next