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