Есть ли функция VBA - аналог метода Replace?

[tolikt]

Непосредственно для листа есть метод Replace. В коде VBA его не могу применить к переменной, а только к Range.
В коде VBA есть строковая переменная. Как в ней заменить некий символ (группу символов) на другой (другую группу символов)? Есть ли простая функция - аналог Replace? Чтобы не городить процедуру с посимвольным поиском и заменой?
Т.е., вместо

Код: Выделить всё

Dim MyString As String
Dim ReplWhat As String
Dim ReplInto  As String
MyString = "с 01/01/07 по 31/01/07"
ReplWhat = "/"
ReplInto = "."
While InStr(1, MyString, ReplWhat) > 0
Mid(MyString, InStr(1, MyString, ReplWhat), Len(ReplWhat)) = ReplInto
Wend

хотелось бы что-то типа

Код: Выделить всё

Dim ReplWhat As String
Dim ReplInto  As String
MyString = "с 01/01/07 по 31/01/07"
ReplWhat = "/"
ReplInto = "."
MyString=ReplaceFunction(Where:=MyString, What:=ReplWhat, Replacement:=ReplInto)

[Aent]

Так так и называется функция VBA Replace

Description

Returns a string in which a specified substring has been replaced with another substring a specified number of times.

Syntax

Replace(expression, find, replace[, start[, count[, compare]]])

The Replace function syntax has these named arguments:

Part Description
expression Required. String expression containing substring to replace.
find Required. Substring being searched for.
replace Required. Replacement substring.
start Optional. Position within expression where substring search is to begin. If omitted, 1 is assumed.
count Optional. Number of substring substitutions to perform. If omitted, the default value is –1, which means make all possible substitutions.
compare Optional. Numeric value indicating the kind of comparison to use when evaluating substrings. See Settings section for values.

RTFM

[tolikt]

Цитата:
....{чё-то не по-русски}....
RTFM

Однако в RTFM ничего не нашёл.
Нельзя ли подробней пример функции?
Просто в виде типа:

Код: Выделить всё

OldStr="QWERQWER"
NewStr=Replace(OldStr,"Q","Z")

выскакивает ошибка на Replace: "Ошибка компиляции" - "Процедура Sub или Function не определена"
Как конкретно правильно написать?

или дело в Excel 97?

[Pavel55]

Всё работает в Excel XP и Excel 2007

Код: Выделить всё

Sub Макрос1()
    OldStr = "QWERQWER"
    NewStr = Replace(OldStr, "Q", "Z")
    MsgBox NewStr
End Sub

[GeorgeSoca]

Pa vart webbhotell kan ni kanna er trygg! Forutom att vi anvander oss av speglade harddiskar pa alla vara servrar sa tar vi aven backup tva ganger per dygn pa separata servrar. Vi anvander oss av ISPmanager som kontrollpanel. ISPmanager ar en kontrollpanel som gor det enkelt att administrera sin hemsida. Hos oss kan ni lagga hur manga hemsidor och domaner ni onskar under ett webbhotellskonto.
virtual hosting