Public Function ReplaceSpace(ByVal str As String) As String
Dim i As Integer
i = InStr(str, " ")
Do While i 0 Then
str = Replace(str, " ", "")
End If
Loop
ReplaceSpace = str
End Function
Dim i As Integer
i = InStr(str, " ")
Do While i 0 Then
str = Replace(str, " ", "")
End If
Loop
ReplaceSpace = str
End Function