Public Function LTrimStr(ByRef Src As String, Optional ByRef Trim As String = " ") As String
Dim lStart As Long
Dim lStep As Long
Dim lMax As Long
    If LenB(Trim) > 0 And LenB(Src) > 0 Then
        lStep = Len(Trim)
        lMax = Len(Src) - lStep
        lStart = 1
        Do Until lStart >= lMax Or Mid$(Src, lStart, lStep) <> Trim
            lStart = lStart + lStep
        Loop
        LTrimStr = Mid$(Src, lStart)
    Else
        LTrimStr = Src
    End If
End Function

Public Function RTrimStr(ByRef Src As String, Optional ByRef Trim As String = " ") As String
Dim lEnd As Long
Dim lStep As Long
    If LenB(Trim) > 0 And LenB(Src) > 0 Then
        lStep = Len(Trim)
        lEnd = Len(Src) + 1 - lStep
        Do Until lEnd <= 1 Or Mid$(Src, lEnd, lStep) <> Trim
            lEnd = lEnd - lStep
        Loop
        RTrimStr = Left$(Src, lEnd)
    Else
        RTrimStr = Src
    End If
End Function

Public Function TrimStr(ByRef Src As String, Optional ByRef Trim As String = " ") As String
Dim lStart As Long
Dim lEnd As Long
Dim lStep As Long
Dim lMax As Long
    If LenB(Trim) > 0 And LenB(Src) > 0 Then
        lStep = Len(Trim)
        lMax = Len(Src) - lStep
        lStart = 1
        Do Until lStart >= lMax Or Mid$(Src, lStart, lStep) <> Trim
            lStart = lStart + lStep
        Loop
        lEnd = Len(Src) + 1 - lStep
        Do Until lEnd <= 1 Or Mid$(Src, lEnd, lStep) <> Trim
            lEnd = lEnd - lStep
        Loop
        TrimStr = Mid$(Src, lStart, lEnd - lStart + 1)
    Else
        TrimStr = Src
    End If
End Function

    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