24 | 05 | 2017

Remove all Spaces (string)

Code below removes all Spaces in a String

Public Function RemoveAllSpaces(ByVal InputString As String) As String

'***************************************
'**** Code from VisibleVisual.com ******
'***************************************
 
Dim sAns As String
Dim lLen As String
Dim lCtr As Long, lCtr2 As Long
Dim sChar As String
 
opnieuw:
If Right(InputString, 1) = " " Then
InputString = Left(InputString, Len(InputString) - 1)
GoTo opnieuw
Else
End If
 
RemoveAllSpaces = InputString
 
End Function
 
Login

Sign up now and upload your code to the website.

Help us to continue.....
Statistics
Articles View Hits
2258974
Latest Articles