Private Sub Form_Load()
Dim strcmd As String
strcmd = Command
Dim strmsg As String
Do While strcmd <> "" And InStr(strcmd, " ") <> 0
strmsg = Left(strcmd, InStr(strcmd, " ") - 1)
MsgBox strmsg
strcmd = Right(strcmd, Len(strcmd) - InStr(strcmd, " "))
Loop
MsgBox strcmd
End
End Sub