Dim number As String
number = numDipValue
'If the value of number = 2, then after NumberFormat2 it then is 0002
number = (NumberFormat2(number, 4, 0, 0, False)) 'Forces the number to always be 4 digits
Dim result1, result2, result3, result4 As Int
'If the value of number = 0002
result1 = number.SubString2(0,1) 'result1 = 0
result2 = number.SubString2(1,2) 'result2 = 0
result3 = number.SubString2(2,3) 'result3 = 0
result4 = number.SubString2(3,4) 'result4 = 2
If result1 = 0 Then
...
Else
If result1 = 1 Then
...