Private Sub cmdFertig_Click()
Dim intZ1 As Integer
Dim intZ2 As Integer
Dim strErgtxt As String
intZ1 = Val(Me.txtEingabe.Value)
intZ2 = Val(Me.txtEingabe2.Value)
If intZ1 = intZ2 Then
strErgtxt = "Gratulation. Sie haben es geschafft."
End If
If intZ1 > 100 Then
strErgtxt = "Sie mogeln! Die Zahl soll kleiner als 100 sein!"
strErgtxt.Font.Bold = True
End If
If intZ1 < 0 Then
strErgtxt = "Sie mogeln! Die Zahl soll größer als 0 sein!"
strErgtxt.Font.Bold = True
End If
If intZ1 > intZ2 Then
strErgtxt = "Sie müssen in größeren Dimensionen denken."
ElseIf intZ1 - intZ2 > 10 Then
strErgtxt = "Sie müssen in größeren Dimensionen denken." & vbNewLine & "Strengen Sie sich etwas mehr an!"
ElseIf intZ1 - intZ2 <= 10 Then
strErgtxt = "Sie müssen in größeren Dimensionen denken." & vbNewLine & "Das ist schon ziemlich gut."
End If
If intZ1 < intZ2 Then
strErgtxt = "Sie werden übermütig."
ElseIf intZ2 - intZ1 > 10 Then
strErgtxt = "Sie werden übermütig." & vbNewLine & "Strengen Sie sich etwas mehr an!"
ElseIf intZ2 - intZ1 <= 10 Then
strErgtxt = "Sie werden übermütig." & vbNewLine & "Das ist schon ziemlich gut."
End If
Me.txtErgebnis.Text = strErgtxt