Private Sub CommandButton1_Click()
Dim min As Integer
Dim max As Integer
Dim zufallszahl As Integer
Dim deinWert As Integer
Dim abweichung As Integer
 
min = 0 'kleinste Zahl
max = 1111018799 'größte Zahl
zufallszahl = 11018799 'richtige Zahl
 
deinWert = TextBox1
 
abweichung = zufallszahl - deinWert
 
If (abweichung < 0) Then
abweichung = abweichung * -1
End If
 
ausgabe = MsgBox("Zufallszahl: " CStr(zufallszahl) " Ihre Zahl: " CStr( _
  deinWert) " Abweichung: " CStr(abweichung), 0, "Abweichung...")
 
End Sub