Bien, antes de profundizar en el programa estoy haciendo pruebas para ver si funcionan las entradas y salidas.
Así empieza siempre:
Dim InBuffer As String
MSComm1.PortOpen = True
InBuffer = MSComm1.Input
De esta forma da error llamada a procedimiento o argumento no valido
Label1.caption = Asc(InBuffer)
Asi tambien da el mismo error
Label1.caption = Asc(left(InBuffer,1))
De esta forma es la única manera que lee el caracter de la cadena, pero si le quito el bucle for .... next sigue dando el mismo error
For i = 1 To Len(InBuffer)
Label1.Caption = Asc(Mid(InBuffer, i, 1)) 'tambien lo lee con Asc(Left(InBuffer, 1))
next i
(Nota) La cadena InBuffer sólo tiene un caracter
He probado a ponerle Asc(Mid(InBuffer, 1, 1)) y no funciona, sólo con el bucle.
Hay alguna explicación ?
Gracias