One of the nice things about VB is the ability to redefine most of the built-in commands. For example, you can extend the functionality of the Trim family of commands. LTrim and RTrim remove leading and trailing spaces from a string, but it also would be useful to remove other nonprinting characters, such as tabs, or carriage return/line feed pairs that might be present after reading in a text file. This code does exactly that by removing all leading and trailing characters with an ASCII value less than or equal to that of a space character:

 Public Function Trim(ByVal inString As String) _	As String	Trim = RTrim(LTrim(inString))End FunctionPublic Function RTrim(ByVal inString As String) _	As String	Dim nPos As Long	nPos = Len(inString)	If nPos > 0 Then		Do While (Asc(Mid$(inString, _			nPos, 1)) <= 32)			nPos = nPos - 1			If nPos = 0 Then Exit Function		Loop		RTrim = Left$(inString, nPos)	End IfEnd FunctionPublic Function LTrim(ByVal inString As String) _	As String	Dim nPos As Long, nLen As Long	nLen = Len(inString)	If nLen > 0 Then		nPos = 1		Do While Asc(Mid$(inString, nPos, 1)) <= 32			nPos = nPos + 1			If nPos = nLen Then Exit Function		Loop		LTrim = Mid$(inString, nPos)	End IfEnd Function