How to force WorkSheet InputBox to accept currency or decimal value

[snb]

Sub M_snb()
       On Error Resume Next
       [A2] = FormatCurrency(Application.InputBox("Enter a Currency", "Enter Currency"))
End Sub