Dim sCmd As String
Dim sParam As String
Dim sData() As String
Dim i As Long
 
sCmd = Command$  ' Bsp.: /user=xxxx /password=yyyy
If Len(sCmd) > 0 Then
  sData = Split(sCmd, "/")
  For i = 0 To UBound(sData)
    If InStr(sData(i), "=") > 0 Then
      sCmd = Split(sData(i), "=")(0)
      sParam = RTrim$(Split(sData(i), "=")(1))
 
      Select Case LCase$(sCmd)
        Case "user"
          Debug.Print "User=" & sParam
        Case "password"
          Debug.Print "Password=" & sParam
      End Select
    End If
  Next i
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de