Private Sub Form_Load()
 
    toggle = False
    neucommand = ""
 
    For i = 1 To Len(Command$)
        ee = Mid$(Command$, i, 1)
        If ee = Chr$(34) Then toggle = IIf(toggle = False, True, False)
        If toggle = True Then ee = Replace(ee, " ", "::")
        neucommand = neucommand & ee
    Next
 
    Command$ = neucommand
 
   docs = Split(Command$, " ")
        For i = 0 To UBound(docs)
            DocumentOpen Replace(docs(i), "::", " ")
        Next
 
End Sub

Gru?

BernyH