Private Sub Form_Load()
    sevText1.SetText "5"
    sevText1.ToolTip = "Bitte 5 eingeben"
    sevText2.SetText "Eingabe egal"
End Sub
 
Private Sub sevText1_LostFocus()
    On Error GoTo err_sevText1_LostFocus
 
    If sevText1.Text = "5" Then
        sevText1.ToolTip = "Sie haben eine 'Fünf' eingegeben"
    Else
        sevText1.ToolTip = "Test für 5 nicht erfolgreich"
 
    End If
    sevText2.ToolTip = ""
 
    Exit Sub
err_sevText1_LostFocus:
 
    If Err = 91 Then
        MsgBox "Fehler 91 aufgetreten"
        Resume
    Else
        Resume Next
    End If
 
End Sub