wert auf ±10 vergleichen wie ??

[radbruch]

Oder so vielleicht:

Dim Soll As Integer , Ist As Integer , Temp As Integer

If Soll > Ist Then
   Temp = Soll - ist
Else
   Temp = Ist - soll
End If
If Temp > 10 Then Print "Abstand ist größer als ±10"

(ungetestet)