Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim max As Integer
        Dim zufallszahl As Integer
        Dim deinWert As Integer
        Dim abweichung As Integer
        Dim schreibwert As String
 
        max = 10 'größte Zahl
        zufallszahl = Int(Rnd() * max) + 1 ' generiere Zufallszahl
 
        schreibwert = "Schätze meine Gedachte Zahl!"
        deinWert = Val(InputBox(schreibwert))
 
 
        abweichung = zufallszahl - deinWert
        If (deinWert < max) Then
            If (zufallszahl > deinWert) Then
                abweichung = zufallszahl - deinWert
            Else
                If (zufallszahl < deinWert) Then
                    abweichung = deinWert - zufallszahl
                End If
            End If
            MsgBox("Zufallszahl: " & CStr(zufallszahl) & vbCrLf & " Ihr Zahl: " _
              & CStr(deinWert) & vbCrLf & "Abweichung: " & CStr(abweichung), 0, _
              "Abweichung...")
 
        Else
            MsgBox("Falsche Zahl", 0, "Abweichung...")
        End If
 
 
 
    End Sub