Option Explicit
Dim a As String
Private Sub Command1_Click()
InStr(a, "clear", vbTextCompare) 'Aqui salta el error
End Sub
 
Private Sub Form_Load()
a = "dgh ttdx tnh ck bd tbs xjthm cn clear rgtfc txvhtxv"
End Sub
 

'Ejemplo de uso de Split para separar comandos
'Por Auron
'Espero que lo entiendas bien esta vez
Option Explicit
Dim a, resultado As String
Dim i, contador As Integer
Dim v As Variant
 
Private Sub Command1_Click()
a = Text1.Text 'Se almacena en a la cadena
v = Split(a, " ") 'Se separa cada parametro con un split
 
'v(0) = primer parametro
'v(1) = segundo parametro
'v(2) = tercer parametro... etc
 
 
'Se cuenta el numero de espacios que hay en el texto, así sabremos
'cuantos parámetros hay, porque entre cada parámetro ha de haber un espacio
For i = 1 To Len(a)
    If Mid(a, i, 1) = " " Then
        contador = contador + 1 'contador almacena el número de espacios
    End If
Next
 
'Si el primer parametro es el comando clean entramos
If LCase(v(0)) = "clean" Then
    resultado = "clean" 'asignamos el resultado clean
 
    'Si contador es mayor o igual que 1 es que hay uno o más parámetros
    If contador >= 1 Then
        If LCase(v(1)) = "/q" Then
            resultado = resultado & " /q" 'Si el parámetro 1 es /q se almacena en resultado
        ElseIf LCase(v(1)) = "/s" Then
            resultado = resultado & " /s" 'Si el parámetro 1 es /s se almacena en resultado
        End If
    End If
 
    'Si contador es mayor o igual que 2 es que hay dos o más parametros
    If contador >= 2 Then
        If LCase(v(2)) = "/q" Then
            resultado = resultado & " /q" 'Si el parámetro 2 es /q se almacena en resultado
        ElseIf LCase(v(2)) = "/s" Then
            resultado = resultado & " /s" 'Si el parámetro 2 es /s se almacena en resultado
        End If
    End If
 
    'Mostramos el resultado
    MsgBox "El comando resultante es: " & resultado, vbInformation, "Resultado"
End If
End Sub