VB Coding Tip: Trim All Spaces From a String

Function TrimSpaces(text As String)

Dim trimspace As Integer
Dim thechar$, thechars$

If InStr(text, " ") = 0 Then
  TrimSpaces = text
  Exit Function
End If

For trimspace = 1 To Len(text)

thechar$ = Mid(text, trimspace, 1)
thechars$ = thechars$ & thechar$

If thechar$ = " " Then
  thechars$ = Mid(thechars$, 1, _
                  Len(thechars$) - 1)
End If

Next trimspace

TrimSpaces = thechars$

End Function

Private Sub cmdTrimSpaces_Click()
Text1=TrimSpaces(Text1)
End Sub