с помощью той же функции

Пример 3

Здесь строка в формате Unicode преобразуется в строку в формате ANSI с помощью той же функции и константы vbFromUnicode: StrANSIvalue = StrConv(strUnicodeValue, vbFromUnicode)