' Funktion zu einlesen des Eingabeparameters
  Public Function cmdParser(ByRef ParseArray As Variant, _
  Optional ByVal cmdSeparator As String = " ") As Long
 
  Dim tmpstr As String
  Dim tmpArray() As String
  Dim x1 As Long
  Dim x2 As Long
 
  ' Funktion initialisieren
  cmdParser = 0
  If Command$ = "" Then Exit Function
 
  ' Command$ ermitteln und über die Split-Funktion
  ' in das tmpArray übertragen. Dabei wird geprüft,
  ' ob der Command$ in Anführungszeichen steht. Wenn
  ' ja, dann Anführungszeichen löschen.
  tmpstr = Command$
  If Left(Command$, 1) = Chr(34) Then
    If Right$(Command$, 1) = Chr(34) Then
      tmpstr = Mid$(Command$, 2, Len(Command$) - 2)
    End If
  End If
  tmpArray = Split(tmpstr, cmdSeparator)
 
  ' ParseArray initialisieren
  x1 = 0
  ReDim ParseArray(x1)
 
  ' Schleife über alle Einträge aus dem tmpArray
  For x2 = LBound(tmpArray) To UBound(tmpArray)
    ' ParseArray normalisieren
    If tmpArray(x2) <> "" Then
      ParseArray(x1) = Trim(tmpArray(x2))
 
      x1 = x1 + 1
 
      ReDim Preserve ParseArray(x1)
 
    End If
  Next x2
 
  ' Letztes Redim Preserve zurücksetzen
  If x1 > 0 Then
    ReDim Preserve ParseArray(x1 - 1)
  End If
 
  ' Rückgabewert setzen
  cmdParser = tmpArray(1)
 
End Function

Dim server As String
  Dim x As Long
  Dim cmdParseList() As String
 
 
  If cmdParser(cmdParseList, " ") > 0 Then
    For x = LBound(cmdParseList) To UBound(cmdParseList)
 
    server = "\\" & cmdParseList(x)
    Next x
  End If