Originariamente inviato da bigpix
Private Sub MSComm1_OnComm()
Dim RX As String
RX = MSComm1.Input
text5=mid(RX,2,31)
End Sub
intanto devi scartare il dollaro, dopo controlla che ci siano realmente 31 caratteri, e che i parametri siano corretti... inoltre fai una prova con

rx= str(mscomm1.input)