Kommando = "/a:Ich /b:bin"
 
    Dim Befehle() As String
 
    Befehle = Split(Kommando, "/")
 
    Dim i As Integer
 
    For i = 1 To UBound(Befehle)
        Select Case Left(Befehle(i), 2)
            Case "a:"
                Text = Text & Mid(Befehle(i), 3, Len(Befehle(i)))
            Case "b:"
                Text2 = Text2 & Mid(Befehle(i), 3, Len(Befehle(i)))
            Case "c:"
                Text3 = Text3 & Mid(Befehle(i), 3, Len(Befehle(i)))
        End Select
    Next