Author  

Language  

Operating Systems  

Public Function TrimALL(ByVal TextIN As String) As String
    TrimALL = Trim(TextIN)
    While InStr(TrimALL, String(2, " ")) > 0
        TrimALL = Replace(TrimALL, String(2, " "), " ")
    Wend
End Function

Private Sub Command1_Click()
    MsgBox TrimALL("Hello     !    !    ! This function     removes all    extra spaces      from     strings")
End Sub