Программа функции fmtCurrency преобразовывает число к денежному формату: разделитель - точка, два знака после точки.

'-----------------------------------------------------
'Функция fmtCurrency преобразовывает число
'к денежному формату: разделитель - точка,
'два знака после точки.
'-----------------------------------------------------
'Откройте новый проект. Добавьте на Form1
'элементы Text1, Text2, кнопку Command1
'и модуль. Код в модуле:
Function fmtCurrency(sum As Currency) As String
Dim I As String, F As String
I = Format$(Fix(sum), "0")
F = Format$(Fix((sum - Fix(sum)) * 100), "00")
fmtCurrency = I & "." & F
End Function'Для события Сlick кнопки Command1 введите код:
Private Sub Command1_Click()
Text2.Text = fmtCurrency(Text1.Text)
End Sub