REPLACE и оффис 97

[gjghjc]

Люди помогите советом!
Писал я тут программку для подсчета микробов в Excel'е но столкнулся с такой проблемой у меня система 98 и оффис 2000 а у человека 95 и оффис 97 в итоге вместо ожидаемых благодарностей я чувствовал себя не совсем хорошо так как 97-ой оффис очень сильно ругался на функцию Replace если кому инетресно и кто сможет помочь с точки зрения правильности решения и оптимизации в кода общем и целом могу выслать всю эту белиберду рукотворную на мыло так как со скачиванием файлов отсюда у народа иногда возникают проблемы.
Заранее спасибо за помощь

[GSerg]

Что именно не получается? Replace в 97 офисе есть. Она в WorksheetFunctions. Синтаксис:
a = Replace (OldText, StartPos, ReplaceLenght, NewText)

То есть, к примеру, Replace("abcdefghijk"; 6; 5; "*") выдаст abcde*k

[alibek]

А помоему все-таки функции Replace нет в VB5 и VBA97.
Полноценная ее реализация была где-то на этом сайте, а "почти" полноценная такова:

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

Function Replace(ByVal sText As String, sFind As String, sReplace As String) As String
Dim I As Long, P As Long
I = 1
Do
  P = InStr(I, sText, sFind)
  If P = 0 Then Exit Do
  Text = Left$(sText, P-1) & sReplace & Mid$(sText, P+Len(sFind))
  I = P+Len(sReplace)
Loop
Replace = sText
End Function