Code:
Public Function TrimComplete(ByVal sValue As String) As _ String Dim sAns As String Dim sWkg As String Dim sChar As String Dim lLen As Long Dim lCtr As Long sAns = sValue lLen = Len(sValue) If lLen > 0 Then 'Ltrim For lCtr = 1 To lLen sChar = Mid(sAns, lCtr, 1) If Asc(sChar) > 32 Then Exit For Next sAns = Mid(sAns, lCtr) lLen = Len(sAns) 'Rtrim If lLen > 0 Then For lCtr = lLen To 1 Step -1 sChar = Mid(sAns, lCtr, 1) If Asc(sChar) > 32 Then Exit For Next End If sAns = Left$(sAns, lCtr) End If TrimComplete = sAns End Function