Visual Basic - salir del ciclo

estoy haciendo un reloj a traves de tarjetas rfdi y tengo la informacion en una base deatos cuando quiero hacer una consulta se cicla el programa, como salgo del ciclo
idt = id
MSComm1.PortOpen = True
MSComm1.Output = Chr(13) + "001400" + Chr(13)
Do
DoEvents
buffer$ = buffer$ & MSComm1.Input
Loop Until InStr(buffer$, vbCrLf)
id = Mid(buffer$, 6, Len(buffer$) - 7)
MSComm1.PortOpen = False
If id <> "94" Then
If id <> idt Then
While dataids.Recordset.EOF = True
If dataids.Recordset.Fields("tagid") = id Then
Text1.Text = dataids.Recordset.Fields("nombre")
End If
Wend
End If
End If
End Sub

Es que en realidad, en lugar de hacer un bucle Loop en el mismo lugar donde envías la solicitud de datos (le llamo solicitud de datos a "MSComm1.Output = Chr(13) + "001400" + Chr(13) ") , tendrías que utilizar el evento "OnComm" del control MSComm.

Dicho evento se ejecuta cada vez que llega un dato al puerto serie.

NOTA: para que este evento funcione correctamente, tendrás que poner en la propiedad "RThreshold" del control la cantidad de bytes que vas a querer recibir en cada llamada del evento OnComm.

Saludos!!!