Thread: remove all spaces from string [vb]

Code:

Public Function RemoveAllSpaces(ByVal InputString As String) _ 
As String
\'NOTE: Intended for VB5 and below; if you have VB6, use built-in
\'Replace Function. (e.g., MyString = Replace(MyString, \" \", \"\")
Dim sAns As String
Dim lLen As String
Dim lCtr As Long, lCtr2 As Long
Dim sChar As String

lLen = Len(InputString)
sAns = InputString
lCtr2 = 1
For lCtr = 1 To lLen
    sChar = Mid(InputString, lCtr, 1)
    If sChar <> \" \" Then
        Mid(sAns, lCtr2, 1) = sChar
        lCtr2 = lCtr2 + 1
    End If
Next
If lCtr2 > 1 Then
    sAns = Left(sAns, lCtr2 - 1)
Else
    sAns = \"\"
End If
RemoveAllSpaces = sAns
End Function

Kk..
Which VB? There is alot of them :P

i mean visual basic
<div class='quotetop'>QUOTE (L33T @ May 7 2009, 12:01 PM) <{POST_SNAPBACK}></div>

Kk..
Which VB? There is alot of them :P[/b]

<div class='quotetop'>QUOTE (ghadeer @ May 7 2009, 01:19 PM) <{POST_SNAPBACK}></div>

i mean visual basic[/b]

Yes I know LOL!
.NET?

i hate vb code, php is the easiest to understand

its vb6
vb6 used to desktop progarmnot to web site bulid
<div class='quotetop'>QUOTE (Eyes @ May 8 2009, 08:14 AM) <{POST_SNAPBACK}></div>

i hate vb code, php is the easiest to understand[/b]