Formatieren als Zahl/Währung im VBA

Private Sub FldKurs_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(FldKurs) Then
FldKurs = ""
Else
FldKurs = Format(FldKurs, "#,##0.00 $")
End If
End Sub

Diese soll bezwecken, dass in einem Textfeld nur eine Zahl stehen darf, die nachfolgend in Euro (zwei Kommastellen) fromatiert werden.
Jedoch Funktioniert das nur wenn eine Kommazahl eingegeben wird. Gebe ich z.B eine "8" ein wird das nicht akzeptiert und das Textfeld bleibt leer.
Liebe Grüße, hoffe das jemand den Fehler entdeckt!
Nadine