es soll die Vorgabezahl mit der Eingabezahl verglichen werden.
Je nach der Prüfung soll der entsprechende Text ausgegeben werden.
Was mache ich falsch ?
#############################
Private Sub cmdFertig_Click()
'Variablendeklaration
Dim intVorgabezahl As Integer
Dim intEingabezahl As Integer
Dim strAusgabetext As String
intVorgabezahl = Val(Me.txtVorgabe.Value)
intEingabezahl = Val(Me.txtEingabe.Value)
intEingabezahl = intVorgabezahl = intEingabezahl
If intEingabezahl > 100 Then
strAusgabetext = "Die Zahl istkleiner als 100!"
End If
If intEingabezahl < 0 Then
strAusgabetext = " Die Zahl ist größer als 0!"
End If
If intEingabezahl > 10 Then
strAusgabetext = " Strengen Sie sich etwas mehr an !"
End If
If intEingabezahl < 10 Then
strAusgabetext = " Das ist schon ziemlich gut."
End If
If intEingabezahl <= 0 Then
strAusgabetext = " Sie müssen in größeren Dimensionen denken."
End If
If intEingabezahl >= 0 Then
strAusgabetext = " Sie werden übermütig."
End If
If intEingabezahl = 0 Then
strAusgabetext = " Gratulation. Sie haben es geschafft."
End If
Me.txtAusgabe.Text = strAusgabetext
End Sub