posto l'intero programma per capirci meglio...

Sul form ho una TextBox e 2 Pulsanti.

---------------------------------------------------------
Dim dato As String 'dichiaro la varibile "dato"
---------------------------------------------------------

Private Sub Command1_Click()
Timer1.Enabled = True 'abilito il timer
MSComm1.CommPort = 1 'definisco quale porta uso
MSComm1.PortOpen = True 'apro la porta com1
MSComm1.Settings = "9600,n,8,1" 'definisco i parametri di connessione
End Sub

---------------------------------------------------------
Private Sub Command2_Click()
MsgBox (Mid(dato, 2, 4)) 'Premendo qua dovrebbe apparire solo il valore 802
End Sub
---------------------------------------------------------

Private Sub MSComm1_OnComm()
If MSComm1.PortOpen = True Then
dato = MSComm1.Input 'Leggo il contenuto del buffer di ricezione
If Len(dato) Then 'Se ho ricevuto qualcosa lo scrivo nella TextBox
Text1.Text = Text1.Text & dato
End If
End If
End Sub
---------------------------------------------------------

Private Sub Timer1_Timer()
Call MSComm1_OnComm 'Richiamo l'evento oncomm
End Sub
---------------------------------------------------------

:master: