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