Send og læs næste komando over RS232

Hej
Er ved at lave et program der skal modtage og sende data fra et instrument på en com-port.
Programmet skal køre i et loop indtil man trykker stop
Mit spørgsmål er : Hvordan sender og modtager jeg næste komando fx. MSComm1.Output = "RI" + Chr$(13) + Chr$(10)
og modtager ISO:99/20/5

Programmet ser sådan ud nu:

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Private Sub Start_Click()

MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True

Do
MSComm1.Output = "RC" + Chr$(13) + Chr$(10)

Do
dummy = DoEvents()
Loop Until MSComm1.InBufferCount >= 62
Label1.Caption = MSComm1.Input
Label2.Caption = Val(Mid$(Label1.Caption, 56, 8))
Label3.Caption = Val(Mid$(Label1.Caption, 48, 8))
Label4.Caption = Val(Mid$(Label1.Caption, 40, 8))
Label5.Caption = Val(Mid$(Label1.Caption, 28, 8))
Label6.Caption = Val(Mid$(Label1.Caption, 20, 8))
Label7.Caption = Val(Mid$(Label1.Caption, 10, 8))

Label8.Caption = (Label2.Caption * 0.1)
Label9.Caption = (Label3.Caption * 0.01)
Label10.Caption = (Label4.Caption * 0.001)
Label11.Caption = (Label5.Caption * 0.0001)
Label12.Caption = (Label6.Caption * 0.00001)
Label13.Caption = (Label7.Caption * 0.000001)



CENTUM1.StationName = "HIS0164"
a = CENTUM1.PutTagData(Text1.Text, Label8.Caption)
a = CENTUM1.PutTagData(Text2.Text, Label9.Caption)
a = CENTUM1.PutTagData(Text3.Text, Label10.Caption)
a = CENTUM1.PutTagData(Text4.Text, Label11.Caption)
a = CENTUM1.PutTagData(Text5.Text, Label12.Caption)
a = CENTUM1.PutTagData(Text6.Text, Label13.Caption)


Dim x As Integer
Sleep 1000 '1000 milliseconds

Loop Until Click



End Sub

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