ejecutar procesos sieguientes

[emilio_alac05]

Hola amigos del foro buen dia estoy buscando ayuda, tengo un problema para ejecutar una sentencia

Uso un comando AT+CMGD=1 & vbcrlf cuando envio este comando si se realizo con exito me devuelven un OK si no un ERROR

como podria validar que el proceso continue hasta que sea igual a OK, saludos. lo necesito.gracias.


utilizo este codigo pero no me lo respeta se pasa a llamar call send_sms sin que reciba OK, cual es el problema?,saludos. ayudenme
Código:

Código:

sub borrar()

Do Until InStr(MSComm1.Input, "OK")
        
    MSComm1.Output = "AT+CMGD=" & 8 & vbCrLf
        
        DoEvents
    Loop
    Call send_sms

end sub

[Kruzado]

Colega,

la funcion Instr devuelve la posicion donde encuentra la cadena buscada, sino devuelve cero. Por lo tanto tu condicion debe ser algo como

Do Until InStr(MSComm1.Input, "OK")>0

sorry por la tardanza, espero te sirva