Private Sub CommandButton1_Click()
Dim zufallszahl As Integer
Dim abweichung As Integer
zufallszahl = Int(Rnd() * 10) + 1
abweichung = ABS(zufallszahl - CInt(TextBox1))
MsgBox "Zufallszahl: " & zufallszahl & vbCrLf & "Ihr Zahl: " & deinWert & _
  vbCrLf & "Abweichung: " & abweichung, 0, "Abweichung..."
End Sub