If Option1.Value = True Then
Select Case MSComm1.CommEvent
Case comEvReceive '''recibo 1 bytes
'''Recibe y lo almacena en sData.
sData = MSComm1.Input
'Datos que se quieren modificar. Los retiro de la Variable
sData = Replace$(sData, "m", "")
sData = Replace$(sData, "s", "")
sData = Replace$(sData, "V", "")
'Text2 = Text2 & sData
Paso = 0
For a = 1 To Len(sData)
pos = Len(sData) - (a - 1)
Select Case Paso
Case 0
If Mid(sData, pos, 1) = " " Then
Paso = 1
Else
Derecha = Mid(sData, pos, 1) & Derecha '''Ultimo de la derecha
End If
Case 1
If Mid(sData, pos, 1) = " " Then
Paso = 2
Else
Centro = Mid(sData, pos, 1) & Centro '''El del Centro
End If
Case 2
Izquierda = Mid(sData, pos, 1) & Izquierda '''Primero de la Izquierda
End Select
Next
'Izquierda = " " 'Replace$(Izquierda, "m", "")
'Centro = " " 'Replace$(sData, "m", "")
Text1 = Text1 & Derecha
Text2 = Text2 & Derecha 'Izquierda '& vbCrLf 'Mid(Text1.Text, 11, 5) 'Text3.Text &
End Select
End If
End Sub