Private Sub CommandButton1_Click()
With MSComm1
.InBufferCount = 0
.CommPort = 1
.Handshaking = comNone
.Settings = "1200,o,7,1"
.InputLen = 3
.PortOpen = True
End With
Do While MSComm1.Input <> " +"
Loop
MSComm1.InputLen = 5
Label1.Caption = MSComm1.Input
ActiveCell.Value = CSng(Label1.Caption)
ActiveCell.Offset(1, 0).Select
MSComm1.PortOpen = False
End Sub