Ошибка 13 Type mismatch при преобразовании строки в число

Данная ошибка возникает, например, в следующем примере макроса (VBA):

Str002 = "1.25"
StrPopr = CStr(CDbl(Str002) * 0.25)

Проблема заключается в том, что сами числа в VBA отображаются с точкой (0.25), а строковые отображения чисел должны отображаться с запятой ("1,25").

При появлении данной ошибки нужно заменить в числах точки на запятые:

Str002 = "1.25"
a = Replace(Str002, ".", ",") 'Замена точек на запятые в строковом выражении числа
StrPopr = CStr(CDbl(a) * 0.25)