toledo weights vb6 code

Public Shared STX = Chr(2)' ascii start of text
Public Shared CR = Chr(13) 'ascii Carriage Return

Private Function get_lbs() As String
        Dim buffer As New StringBuilder()
        Dim comPort As New SerialPort("COM1", 9600, Parity.None, 8, StopBits.One)

        comPort.Open()
        comPort.Write(STX)
        mytimer(1)
        comPort.Write("P")
        mytimer(1)
        comPort.Write(CR)
        mytimer(1)
        Dim line As String = comPort.ReadExisting
        comPort.Close()
        Return isnum(Trim(line))

End Function