Trim$, обрезка пробелов, табуляций и прочего

Function sTrimU(ByVal sData As String, ByVal sTrimChar As String) As String
  ' sTrimU
  ' Trim Universal
  Dim lLen As Long
  Dim lPos As Long
  Dim lPosBegin As Long
  Dim lPosEnd As Long
  Dim sChr As String
  '
  lPosBegin = 0
  lPosEnd = 0
  lLen = Len(sData)
  For lPos = 1 To lLen Step 1
    sChr = Mid$(sData, lPos, 1)
    If 0 = InStr(sTrimChar, sChr) Then
      lPosBegin = lPos
      Exit For
    End If
  Next lPos
  For lPos = 1 To lLen Step 1
    sChr = Mid$(sData, lLen + 1 - lPos, 1)
    If 0 = InStr(sTrimChar, sChr) Then
      lPosEnd = lPos
      Exit For
    End If
  Next lPos
  If 0 <> lPosBegin And 0 <> lPosEnd Then
    sTrimU = Mid$(sData, lPosBegin, lLen - (lPosBegin - 1) - (lPosEnd - 1))
  ElseIf 0 <> lPosBegin And 0 = lPosEnd Then
    sTrimU = Mid$(sData, lPosBegin, lLen - (lPosBegin - 1))
  ElseIf 0 = lPosBegin And 0 <> lPosEnd Then
    sTrimU = Mid$(sData, lPosBegin, lLen - (lPosEnd - 1))
  Else
    sTrimU = ""
  End If
End Function

If sTrimChar <> sChr Then

Function sTrimU(sData As String, Optional sTrimChars As String) As String
  ' sTrimU
  ' Trim Universal
  Dim lLen      As Long
  Dim lPosBegin As Long
  Dim lPosEnd   As Long
  '
  If Len(sTrimChars) = 0 Then sTrimChars = " " & vbCrLf & vbTab & Chr$(160)
  lLen = Len(sData)
  For lPosBegin = 1 To lLen
    If 0 = InStr(sTrimChars, Mid$(sData, lPosBegin, 1)) Then
      For lPosEnd = lLen To lPosBegin Step -1
        If 0 = InStr(sTrimChars, Mid$(sData, lPosEnd, 1)) Then
          sTrimU = Mid$(sData, lPosBegin, lPosEnd - lPosBegin + 1)
          Exit Function
        End If
      Next
    End If
  Next
End Function