Textbox Datenüberprüfung

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not TextBox4.Value = "Einnahmen" Or TextBox4.Value = "Ausgaben" Then
TextBox4.Value = ""
MsgBox "Bitte eine gültige Art eingeben"
End If
End Sub