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