CodeItBetter Programming Another VB Programming Blog

'Coding Basics - How to Convert text into the Currency data type
Option Explicit
 
' Convert any value into currency format. If the value does not make sense, return 0.00.
Public Function cvCur(ByVal Value As Variant) As Currency
    On Error Resume Next
    cvCur = CCur(Value)
    If Err.Number <> 0 Then cvCur = 0
End Function
 
Private Sub cmdConvert_Click()
    lblCurrency.Caption = Format$(cvCur(txtCurrency.Text), "Currency")
End Sub