Binaryworld - Remove Extra Spaces in between words ... [ VB -> String ]

Option Explicit

' MODULE
' Removes Extra Spaces in between the words
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