Hallo Jaecko,

was deinen Programm fehlt, ist der Anfang und das Ende der Case-Abfrage:

Code:
Select Case Adcval0
     Case 114 To 154 : Tmp1 = "X"
     ....
     Case Else
     ...
End Select
Gruß
Detlef