' Listing 2: The NewTrim Function

Function NewTrim(strObject)
  Dim chrRead, chrRead2
  Dim strRead
  For i = 1 To Len(strObject)
    chrRead = Mid(strObject, i, 1)
    If i < Len(strObject) Then
      chrRead2 = Mid(strObject, i + 1, 1)
    End If
    If chrRead <> Chr(9) And (chrRead <> Chr(32) Or _
      (chrRead = Chr(32) And chrRead2 <> Chr(32))) Then
      strRead = strRead & chrRead
    End If
  Next
  NewTrim = Trim(strRead)
End Function