the Arduino code is ok. I ran it and it showed the correct values in my VB program, so it's coming across the USB ok
Here is the code I use to find the correct com port. It cycles through until it finds a com port sending out the correct string
you will have to declare some of the variables to get it running, but it
stick some debug.print statements in the code and step through it. You should be getting values comming over if the baud rate is set correctly
also, you need to put the VB side read insome kind of loop also so it will keep reading the input
For n = 1 To 16 ' com ports
' close any open ports
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
On Error Resume Next
MSComm1.CommPort = n
On Error Resume Next
MSComm1.InputLen = 0
MSComm1.PortOpen = True
If MSComm1.CommID > 0 Then
For i = 1 To 100 ' keep looking
str = ""
str = MSComm1.Input
' finds the port sending out the correct string.
If InStr(str, "Tmp") > 0 And InStr(str, "@") > 0 Then GoTo jump:
Sleep 50
Next i
End If
Next n
jump: