Распределение данных с последовательного порта

Private Sub Command1_Click()
MSComm1.CommPort = 2
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputLen = 0
MSComm1.OutBufferSize = 0
MSComm1.InBufferSize = 0
MSComm1.PortOpen = True
Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
Do
 DoEvents
 Buffer$ = Buffer$ & MSComm1.Input
 Loop Until InStr(Buffer$, vbCr)
 Label1.Caption = Buffer$
End Sub

If Label1.Caption <= "02M02999" Then
Label1.Caption = Label1.Caption
Else
Label1.Caption = "Error"
End If
If Label1.Caption >= "02M00000" Then
Label1.Caption = Label1.Caption
Else
Label1.Caption = "Error"
End If
If Label2.Caption <= "03M02999" Then
Label2.Caption = Label2.Caption
Else
Label1.Caption = "Error"
End If
If Label2.Caption >= "03M00000" Then
Label2.Caption = Label2.Caption
Else
Label2.Caption = "Error"
End If

If Left(Buffer$, 4)="02M0" Then 
   Label1.Caption = Buffer$
   Label2.Caption = "Error"
ElseIf Left(Buffer$, 4)="03M0" Then
   Label2.Caption = Buffer$
   Label1.Caption = "Error"
Else
   Label1.Caption = "Error"
   Label2.Caption = "Error"
End If