Hallo

Habe mir das jetzt so gelöst
Code:
 Dim Ad0 As Word
 Dim A As Long

Ad0 = Getadc(0)
A = Ad0 - 491
A = A * 63
A = A / 100
A = A + 22

LCD A
0,63 (63/100) ist der ADC-Wert pro Grad Celsius zwischen 22 und 90 Grad
491 ist der ADC-Wert bei 22 Grad