Private Sub Form_Activate()
Dim StartParameter As String
Dim Argumente() As String
 
StartParameter = Command()
 
StartParameter = Trim(StartParameter)
 
If Left(StartParameter, 1) = Chr(34) Then
  StartParameter = Mid(StartParameter, 2)
End If
 
If Right(StartParameter, 1) = Chr(34) Then
  StartParameter = Mid(StartParameter, 1, Len(StartParameter) - 1)
End If
 
Argumente = Split(StartParameter, " ")
 
MsgBox Mid(Argumente(0), 2)
MsgBox Mid(Argumente(1), 2)
MsgBox Mid(Argumente(2), 2)
 
End Sub