Public Function String_TrimSuffix(ByVal MyString As String, ByVal Suffix As String) As String
'Purpose
'   Used to trim the suffix from a string if it exists on the string.
'Parameters
'   MyString (String) = The string we're working with.
'   Suffix (String) = The suffix we want to remove from MyString.
'Return (String)
'   Returns the specified string (MyString) with the specified suffix (Suffix) removed.
'   Returns the specified string (MyString) unchanged if:
'       - Suffix does not exist on the end of the specified string (MyString).
'       - Suffix is zero-length.
'Version History
'   1.0 4/16/06 4:18am Tested by Russ Tanner on VB6 Win2000
'---

If Right(MyString, Len(Suffix)) = Suffix Then
    String_TrimSuffix = Left(MyString, Len(MyString) - IIf(Len(Suffix) < Len(MyString), Len(Suffix), Len(MyString)))
Else
    String_TrimSuffix = MyString
End If

End Function