В текстовом поле найти цифры и сделать большими

[Wasili4]

Есть проблемка. В Access печатаем ценники. Надо в поле NAME_T, в отчете перед выводом, найти цифры и изменить их размер. В Excelе проблемка решена:

Sub BoldingDigits (ByRef ra As Range)
Dim cell As Range
For Each cell In ra.Cells
cell.Font.Bold = False: cell.Font.Size = 10: cell.Font.ColorIndex = 0 ' по умолчанию*
For i = 1 To cell.Characters.Count
letter = cell.Characters(Start:=i, Length:=1).Text
If IsNumeric(letter) Then ' для цифр
cell.Characters(Start:=i, Length:=1).Font.Bold = True ' жирный шрифт
cell.Characters(Start:=i, Length:=1).Font.Size = 12 ' размер шрифта
cell.Characters(Start:=i, Length:=1).Font.Color = vbRed ' цвет шрифта*
End If
Next
Next cell
End Sub

Можно ли как-то подключить, и как?

Ценник.rar
Всё в корень. Заранее спасибо!