Sub Main()
Dim Dateinamen As String
Dim Datei() As String
Dim N As Long
 
Dateinamen = Command$
Dateinamen = Replace(Dateinamen, Chr(34), "")
 
  If Dateinamen <> "" Then
    ' Dateinamen nach Doppelpunkt splitten
    Datei = Split(Dateinamen, ":")
 
    For N = 1 To UBound(Datei)
      MsgBox Mid(Datei(N - 1), Len(Datei(N - 1)), 1) & ":" & _
             IIf(Mid(Datei(N), Len(Datei(N)) - 1, 1) = " ", Mid(Datei(N), 1, _
             Len(Datei(N)) - 2), Datei(N))
    Next
 
  End If
 
End Sub