Изменить форматирование ячеек

Question

Как я могу изменить форматирование ячейки, которая использует функцию vba, из кода этой функции?

пример, который я пробовал:

1. сделал модуль vba (см. Код ниже)
2. поместите лист Excel в какую-то ячейку "= test ()"
3. функция "работает" - она ​​меняет значение ячейки и показывает 2 всплывающих окна windows. но форматирование остается прежним

Function test()
    MsgBox (Application.ThisCell.NumberFormat)        ' shows "General"
    Application.ThisCell.NumberFormat = "Currency"
    'Application.ThisCell.NumberFormat = "#,##0_);[Red](#,##0)"
    MsgBox (Application.ThisCell.NumberFormat)        ' still shows "General"

    test = 12345.6
End Function

Как заставить его работать?

(мне нужно настраиваемое правило форматирования, а не «валюта», а настраиваемое правило (тестовый пример в строке с комментариями ) тоже не работает)