Private Sub Text1_Change()
    If Len(Me.Text1.Text) > 0 Then
        If Trim(Me.Text1.Text) = "" Then
            MsgBox "Textbox enthält nur " & Len(Me.Text1.Text) & " Leerzeichen"
            Exit Sub
        End If
        If IsNumeric(Me.Text1.Text) Then
            MsgBox "Textbox enthält eine Ziffer oder Zahl"
            Exit Sub
        Else
            MsgBox "Textbox enthält Text"
            Exit Sub
        End If
    Else
        MsgBox "Textbox ist leer"
    End If
End Sub