Since your Data is stored as text you must convert the DataType in the VBA Code
With Selection
.Value = CCur(valueOr(Form.txtMonthlyCost)) 'Convert text to currency Format
.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
End With
.....
Public Function valueOR(val AS Variant, Optional dataType As String = "Number") AS Variant
If isNull(val) then
SELECT CASE dataType
Case "Number"
val = 0
Case "String"
val = ""
End SELECT
End If
valueOR = val
End Function
Also know this will throw an error if a null value is submitted so I added code to handle that as well. I use an expanded version of this to handle Most dataTypes but this should be sufficient for you needs here.