Hola, como era eso lo que buscabas, por si acaso aqui va lo prometido, esta función puedes utilizarla para recuperar todos los Parametros del Command.
Código vb:
Ver originalPrivate Function SeparaCommand(ByVal Cadena As String) As String()
Dim Parametros As String, Hasta As Integer
' Elimina posibles caracteres blancos al principio y final
Cadena = Trim(Cadena)
Do While Cadena <> ""
If Left$(Cadena, 1) = Chr$(34) Then
' Si primer caracter es Comillas, busca las siguientes Comillas
Hasta = InStr(Mid$(Cadena, 2), Chr$(34))
Parametros = Parametros & Mid$(Cadena, 2, Hasta - 1) & "|"
Cadena = Trim(Mid$(Cadena, Hasta + 2))
Else
' Si primer caracter no es comillas, busca el primer blanco
Hasta = InStr(Cadena & Chr$(32), Chr$(32))
Parametros = Parametros & Left$(Cadena, Hasta - 1) & "|"
Cadena = Trim$(Mid$(Cadena, Hasta + 1))
End If
Loop
' Quita el último separador | que no va a necesitar
If Parametros <> "" Then Parametros = Left$(Parametros, Len(Parametros) - 1)
SeparaCommand = Split(Parametros, "|")
End Function
Como ves el uso de la misma es muy simple:
Dim Prm() As String
Prm = SeparaCommand(Command$)
Esta probada y 'teoricamente funciona' pero como siempre, se aceptan cambios y posibles mejoras.
De todos modos, por aqui andaré cualquier duda al respecto comenta.
Saludos