input fra comport fortsat

Hej jeg har fået et godt lille stykke kode her på siden :)

Dim PortTimeout As Boolean


Private Sub Command2_Click()
PortTimeout = False
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
    MSComm1.CommPort = 2
    MSComm1.Settings = "9600,N,8,1"
    MSComm1.InBufferSize = 1
    MSComm1.PortOpen = True
          Do
          Data = MSComm1.Input
          If Data <> "" Then
            Text1.Text = Text1.Text & Data
        End If
          DoEvents
          If PortTimeout Then Exit Do
        Loop
  MSComm1.PortOpen = False
End Sub

Private Sub Command3_Click()
PortTimeout = True
End Sub

Nu har jeg så bare det problem at input bliver splittet op forkert, jeg bruger en stregkodescanner, og vil sikre mig at den først går videre når den har modtaget hele koden ( eks slutkarakter er fast ¤) hvordan kan jeg gøre det
altså så den venter med at sende data videre indtil den møder et ¤
//Dark