by Rabbit (2 Submissions)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 18th June 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
To remove double spaces (4 lines of code :/)
Begin:
Text = Replace(Text, " ", " ")
If (Replace(Text, " ", " ") <> Text) Then GoTo Begin
RemDblSpaces = Text
End Function