==============================================
Gives rightmost position of a character in a string.

Function LastPlace (txt As String, Char As String, CaseSensitive As Integer)

Dim temp As String, i As Integer

LastPlace = 0    '0 means Char is not found in Txt

If Char = " " Or Char = "" Then Exit Function  'No blanks
If Len(Char) > 1 Then Exit Function            '1 character only
If CaseSensitive = 1 Then    'allow for case sensitivity
   temp = LCase$(temp)
   Char = LCase$(Char)
End If

temp = Trim$(txt)

For i = Len(txt) To 1 Step -1
    If Mid$(temp, i, 1) = Char Then
       LastPlace = i
       Exit For
    End If
Next i
End Function