Привет
Спасибо за ссылку
Вот написал код:

Private WithEvents MyFmtRub As StdDataFormat

Private Sub Form_Load()

Set MyFmt = New StdDataFormat
Set MyFmtRub = New StdDataFormat
MyFmt.Type = fmtCustom
MyFmtRub.Type = fmtCustom

Set DataGrid1.Columns(3).DataFormat = MyFmtRub


End Sub

Private Sub MyFmtRub_Format(ByVal DataValue As StdFormat.StdDataValue)
DataValue.Value = Format(DataValue.Value, "# ### ##0.00руб.")
End Sub

все отлично работает
можно использовать стандартную функцию Format для форматирования!