[VB6] Recupero parametri della riga di comando

[fosforo]

Ciao
Ho provato cosi ma non va:

Private Sub Command1_Click()
Dim nome
nome = Command$
On Error Resume Next
If nome = "" Then
MsgBox "xxxxxxx"
Else
MsgBox nome
End If
End Sub