Attribute VB_Name = "vb4lack" Function replace4$(s$, key$, sput$) Dim l&, i&, lk& replace4 = "" l = Len(s) If l = 0 Then Exit Function lk = Len(key) i = 1 Do While i <= l If Mid(s, i, lk) = key Then replace4 = replace4 & sput i = i + lk Else replace4 = replace4 & Mid(s, i, 1) i = i + 1 End If Loop End Function ' ' KK ' Function instrrev&(s$, key$) Dim i&, l&, c$, lk% instrrev = 0 l = Len(s) If l = 0 Then Exit Function lk = Len(key) If lk = 0 Then Exit Function c = Left(key, 1) For i = l To 1 Step -1 If c = Mid(s, i, 1) Then If key = Mid(s, i, lk) Then instrrev = i Exit Function End If End If Next End Function