Jak odczytać dane z czujnika RS232 w VB? Konfiguracja i kod programu

Private Sub Form_Load()
   Dim wynik
End Sub

Private Sub konieccmd_Click()
   End
End Sub

Private Sub startcmd_Click()
   MSComm1.PortOpen = True
   Timer1.Enabled = True
End Sub

Private Sub stopcmd_Click()
   MSComm1.PortOpen = False
   Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
'wysłanie z komputera do miernika znaku D , żądanie przesłania wyniku pomiaru
   MSComm1.Output = "D"
'odczyt danych z portu
   wynik = MSComm1.Input
'wyslanie wyniku do pola odczytowego
   Label1.Caption = wynik
End Sub
Private Sub MSComm1_OnComm()
'wysłanie z komputera do miernika znaku D , żądanie przesłania wyniku pomiaru
   MSComm1.Output = "D"
'odczyt danych z portu
   wynik = MSComm1.Input
'wyslanie wyniku do pola odczytowego
   Label1.Caption = wynik
End Sub

Private Sub Timer1_Timer() 
'wysłanie z komputera do miernika znaku D , żądanie przesłania wyniku pomiaru 
   MSComm1.Output = "D" 
End Sub 

Private Sub MSComm1_OnComm() 
'odczyt danych z portu 
   wynik = MSComm1.Input 
'wyslanie wyniku do pola odczytowego 
   Label1.Caption = wynik 
End Sub 

Private Sub Command1_Click()
MSComm1.Output = "rd0" + Chr$(13)
Do
dummy = DoEvents()
Loop Until MSComm1.InBufferCount >= 5
Text1.Text = Val(MSComm1.Input)
End Sub

Private Sub Option1_Click()
MSComm1.PortOpen = True
End Sub

Private Sub Option2_Click()
MSComm1.PortOpen = False
End Sub