Function CorrectNumber(ByRef Analogflag As String) As String
    Dim Zahl As UInt16
    Dim Returnwert as Double
 
        Zahl = UInt16.Parse(Analogflag)
        If Zahl >= 32767 Then
            Returnwert = (65535 - Zahl) 
            Returnwert *= -1
        Else
            Returnwert = Zahl
        End If
 
    return Returnwert / 10.0
End Function