Datos erroneos al leer por el puerto serie

[fernan2010]

Hola:

Tengo este código que utilizo para leer datos procedentes de un scanner lector de codigos de barras.

El problema es que al leer los datos los recibo con simbolos de interrogación:

5094?254??524

alguna sugerencia?

Public Class Form1
Delegate Sub delegado(ByVal data As String)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Each s As String In My.Computer.Ports.SerialPortNames
lista.Items.Add(s)
Next
End Sub
Private Sub lista_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lista.SelectedIndexChanged
Try
'sp3.Close()
sp.Close()
consola.AppendText("Puerto " & sp.PortName & " Cerrado" & vbCrLf)
sp.PortName = lista.SelectedItem
consola.AppendText("Abriendo Puerto : " & sp.PortName & vbCrLf)
sp.Open()
'' sp3.Open()
consola.AppendText("Puerto : " & sp.PortName & " Abierto" & vbCrLf)
Catch ex As Exception
MessageBox.Show(ex.ToString, "", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub



Sub mostar(ByVal d As String)
consola.AppendText(d)
End Sub


Private Sub sp_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles sp.DataReceived
Dim s As String = sp.ReadExisting
Dim escribeport3 As New delegado(AddressOf Me.mostar)
Me.Invoke(escribeport3, s)
End Sub
End Class