Visual Basic - Como hacer si se llena el buffer de recepcion?

Hola a todos!!!
Estoy haciendo un programa en el cual tengo una recepcion a 9600bps, los datos que me llegan no me muestran el Cero "0" por lo cual lo estoy resolviendo añadiendole el Ciclo.
- Cuando me esta recibiendo la data el programa se tranca y no lo puedo parar. Alguien me puede decir como solventarlo?

Private Sub MSComm1_OnComm()
If MSComm1.CommEvent = 2 Then
buffer = MSComm1.Input
For ii = 1 To Len(buffer)
bufferaux = Mid(buffer, ii, 1)
If Asc(bufferaux) < 16 Then
Text2.Text = Text2.Text & "0" & Hex$(Asc(bufferaux)) & " "
Else
Text2.Text = Text2.Text & Hex$(Asc(bufferaux)) & " "
End If
Next ii
End If
End Sub