Public Function TrimStartStr(ByRef Src As String, Optional ByRef TrimString As String = " ") As String
        Dim lStart As Integer
        Dim lStep As Integer
        Dim lMax As Integer
        If Len(TrimString) > 0 And Len(Src) > 0 Then
            lStep = Len(TrimString)
            lMax = Len(Src) - lStep
            lStart = 1
            Do Until lStart >= lMax Or Mid(Src, lStart, lStep) <> TrimString
                lStart = lStart + lStep
            Loop
            TrimStartStr = Mid(Src, lStart)
        Else
            TrimStartStr = Src
        End If
    End Function
    Public Function TrimEndStr(ByRef Src As String, Optional ByRef TrimString As String = " ") As String
        Dim lEnd As Integer
        Dim lStep As Integer
        If Len(TrimString) > 0 And Len(Src) > 0 Then
            lStep = Len(TrimString)
            lEnd = Len(Src) + 1 - lStep
            Do Until lEnd <= 1 Or Mid(Src, lEnd, lStep) <> TrimString
                lEnd = lEnd - lStep
            Loop
            TrimEndStr = Left(Src, lEnd)
        Else
            TrimEndStr = Src
        End If
    End Function
    Public Function TrimStr(ByRef Src As String, Optional ByRef TrimString As String = " ") As String
        Dim lStart As Integer
        Dim lEnd As Integer
        Dim lStep As Integer
        Dim lMax As Integer
        If Len(TrimString) > 0 And Len(Src) > 0 Then
            lStep = Len(TrimString)
            lMax = Len(Src) - lStep
            lStart = 1
            Do Until lStart >= lMax Or Mid(Src, lStart, lStep) <> TrimString
                lStart = lStart + lStep
            Loop
            lEnd = Len(Src) + 1 - lStep
            Do Until lEnd <= 1 Or Mid(Src, lEnd, lStep) <> TrimString
                lEnd = lEnd - lStep
            Loop
            TrimStr = Mid(Src, lStart, lEnd - lStart + 1)
        Else
            TrimStr = Src
        End If
    End Function