[VB6] MSComm e gestione ricezione dati da un modem con comandi AT

[Johnix76]

Ciao a tutti
ho il seguente codice per gestire un modem attraverso i comandi AT:

.......................
MSComm1.Output = AT & Chr$(13)
MSComm1.Output = AT2 & Chr$(13)
MSComm1.Output = AT3 & Chr$(13)
.................................

Private Sub MSComm1_OnComm()

Dim strRicevuta As String

If MSComm1.PortOpen Then

If MSComm1.CommEvent = comEvReceive Then

strRicevuta = Trim$(MSComm1.Input)
txtEsito.Text = Right$(txtEsito.Text, 32000) & strRicevuta

End If

End If

Il mio problema è che quando invio i comandi il codice è più veloce della risposta del modem, per cui i comandi si sovrappongono e il modem risponde in modo sbagliato. Come posso gestire il tutto in modo che al primo invio il codice aspetti che il modem risponda in modo definitivo per lanciare il secondo comando? Ho provato la funzione Sleep, ma non risolve del tutto il problema.

[oregon]

Tra le righe

MSComm1.Output = AT & Chr$(13)
MSComm1.Output = AT2 & Chr$(13)
MSComm1.Output = AT3 & Chr$(13)

chiama una funzione (diciamo WaitResponse)

MSComm1.Output = AT & Chr$(13)
WaitResponse
MSComm1.Output = AT2 & Chr$(13)
WaitResponse
MSComm1.Output = AT3 & Chr$(13)
WaitResponse

che testi ciclicamente (ma non dimenticare un DoEvents all'interno del ciclo) la stringa restituita dal modem tramite la OnComm, terminando solamente quando intercetta la stringa OK

[Johnix76]

Intanto grazie per l'immediata risposta...
scusa ma sono alle prime armi con Vb6 riesci a postarmi un esempio di codice...?