Jo, seh ich auch so, machs am besten so:

Dim Sensor As Integer
Dim Grad As Integer

Das mit der einen Aufgabe pro zeile wusste ich auch noch nicht!