Author  

Language  

Operating Systems  

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