Here is a quick little function to remove extra spaces from within in a string, which might be of help when processing user inputs.
Public Function RemoveExtraSpaces(str As String) As String
str = Trim(str)
Dim L As Integer, i As Integer
Dim S As String
Dim Prev_char As String * 1
S = ""
L = Len(str)
i = 1
Do
Prev_char = Mid(str, i, 1)
i = i + 1
S = S + Prev_char
If Prev_char = " " Then
Do While (i < L) And (Mid(str, i, 1) = " ")
i = i + 1
Loop
End If
Loop Until i > L
str = S
RemoveExtraSpaces = S
End Function
Usage
'Create a form with a button and a text box
Private Sub Command1_Click()
Text1 = RemoveExtraSpaces(Text1)
End Sub