Excel VB und mscomm

Hallo zusammen,

ich würde gerne die Daten eines digitalen Messschiebers in eine 
Exceltabelle einlesen. Ich versuche dies jetzt schon seit Stunden, komme 
aber damit einfach nicht weiter.

Bis jetzt habe ich folgendes:

Private Sub CommandButton2_Click()
    Dim s As String
    Dim x As Double
    Dim text1 As String

    Set MSComm1 = New MSComm
    MSComm1.CommPort = 1
   MSComm1.Settings = "9600,N,8,1"
   MSComm1.RThreshold = 1
   MSComm1.SThreshold = 1
   MSComm1.InputMode = comInputModeText
   MSComm1.InBufferSize = 10
   MSComm1.PortOpen = True


    While MSComm1.InBufferCount < 4
                DoEvents
                x = x + 1
                Cells(2, 2) = x
                If x > 500 Then End
                s = s & MSComm1.Input & "-"
                Cells(3, 3) = s

    Wend
            y = MSComm1.Input
            Cells(1, 1) = y
End Sub

Dies sollte nur mal ein Test sein, ob überhaupt irgendetwas ankommt.
Aber so wie es aussieht, bleibt „MSComm1.Input“ immer leer.

Der Messschieber sendet kontinuierlich folgende Daten an den Rechner:
->#0D#12
->-#00000506
->#0D#12
->-#00000506
->#0D#12
->-#00000506
->#0D#12
->-#00000506
->#0D#12
->-#00000506
->#0D#12
Vielleicht kann mit ja jemand einen Tipp geben, oder hat sogar eine 
Excelsheet bei dem ich mir die Funktion von mscomm anschauen kann.

Mfg
Martin