Private Sub CommandButton1_Click()
    Dim deinWert As Integer
    Dim schaetzzahl As Integer
    Dim abweichung As Integer
 
    deinWert = InputBox("Bitte geben Sie Ihre Schätzzahl ein", "Schätzrechner", _
      "Ihr Schätzwert")
 
    schaetzzahl = 11018799
    abweichung = schaetzzahl - deinWert
 
    If (abweichung < 0) Then
        abweichung = abweichung * -1
    End If
 
    MsgBox (abweichung)
End Sub