Problem UF Textbox Zahl

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox5.Value = Format(TextBox5.Value, "#,##0.00 €")
If Not IsNumeric(TextBox5.Value) And TextBox5.Value > "" And TextBox6.Value = "" Then
MsgBox "Eingabe in Textbox" & " " & """Einnahmen""" & vbLf & _
"oder Textbox" & " " & """Ausgaben""" & vbLf & "ist mit gültiger Währungszahl erforderlich!"
TextBox5.Value = ""
Cancel = True
Exit Sub
Else
If IsNumeric(TextBox5.Value) And TextBox5.Value > "" And TextBox6.Value = "" Then
TextBox5.BackColor = vbGreen
TextBox6.BackColor = vbGreen
TextBox7.BackColor = vbGreen
'''Call prcCeckEingaben
Else
If IsNumeric(TextBox5.Value) And TextBox5.Value > "" And TextBox6.Value > "" Then
MsgBox "in TextBox" & " " & """Ausgaben""" & " " & "ist bereits ein Wert enthalten"
TextBox5.Value = ""
End If
End If
End If
If TextBox5.Value > "" Then
ComboBox3.SetFocus
End If
End Sub