also die daten vom pager auf den pc zu übernehmen ist nicht die große sache in vb.

Public Class schnittstelle

Public Function Receive(ByVal serialport1 As System.IO.Ports.SerialPort, ByRef zeichenbuffer As String) As Boolean
Dim zeichen As String = String.Empty

zeichenbuffer = ""

serialport1.Encoding = System.Text.Encoding.Default
serialport1.Open()

Do
System.Threading.Thread.Sleep(1000)
zeichen = serialport1.ReadExisting()
If (zeichen.Length > 0) Then
zeichenbuffer = zeichenbuffer & zeichen
End If
Loop Until zeichenbuffer.EndsWith(Chr(0))
serialport1.Close()
Return False
End Function
End Class