*****modTrim.bas*****
Public Function ZeroTrim(StringToTrim As String) As String
Dim c As Integer