Public Function ReplaceSpace(ByVal str As String) As String
Dim i As Integer
i = InStr(str, " ")
Do While i
0
i = InStr(str, " ")
If i
0 Then
str = Replace(str, " ", "")
End If
Loop
ReplaceSpace = str
End Function
Dim i As Integer
i = InStr(str, " ")
Do While i
0
i = InStr(str, " ")
If i
0 Then
str = Replace(str, " ", "")
End If
Loop
ReplaceSpace = str
End Function
Being a devil is the same as being a human. We should be kind. If we are kind, we are not a devil, we are a hybrid.