Option Explicit ' Please use option explicit
Dim ch1 As Integer ' Then define some variables
Dim ch1i As Integer
Dim stemperature As Integer
ch1i = stemperature ' this is asignment
If ch1i = 100 Then ' this is IF THEN ELSE
ch1i = 0
Else
ch1i = ch1i + 1
End If