Public Function ConvertChars(Text As String, Pairs As Variant) As String
    Dim nText As String
    Dim i As Integer
    Dim nPos As Long
    Dim nStart As Long
    Dim nLen As Integer
    Dim nTestChar As Long
    Dim nUCase As Boolean
 
    nText = Text
    For i = 0 To UBound(Pairs) - 1 Step 2
        nLen = Len(Pairs(i))
        nStart = 1
        Do
            nPos = InStr(nStart, nText, Pairs(i))
            If nPos Then
                nTestChar = Asc(Mid$(nText, nPos + nLen, 1))
                If IsCharAlpha(nTestChar) Then
                    If IsCharUpper(nTestChar) Then
                        nUCase = True
                    End If
                Else
                    nTestChar = Asc(Mid$(nText, nPos - 1, 1))
                    If IsCharAlpha(nTestChar) Then
                        If IsCharUpper(nTestChar) Then
                            nUCase = True
                        End If
                    Else
                        nUCase = True
                    End If
                End If
                If nUCase Then
                    nText = Left$(nText, nPos - 1) & UCase$(Pairs(i + 1)) & _
                      Mid$(nText, nPos + nLen)
                Else
                    nText = Left$(nText, nPos - 1) & Pairs(i + 1) & Mid$(nText, _
                      nPos + nLen)
                End If
                nStart = nPos + Len(Pairs(i + 1))
            Else
                Exit Do
            End If
        Loop
    Next 'i
    ConvertChars = nText
End Function