VB6 functions to trim characters

I know this post may be pretty old but I found myself working in old VB6 code once more and had to create a couple of functions that removes characters from the start and end of a string so I wrote these functions. Maybe someone will find these useful if they're working with VB6 again.

Code:
Public Function TrimEnd(ByVal someString As String, ByVal someChar As String) As String
...