Dim vTBase As String MsgBox TxtTotalBase.Text vTBase = Format(TxtTotalBase.Text, "Currency") MsgBox vTBase