Tirar Espaço Em Branco

[Guest - João -]

Fala Galera,

alguém sabem um codigo para retirar espaço em branco entre duas palavras.

Ex. Super Site = SuperSite

Valeu.

João

[Decio]

Tenta este código:

Dim strAux, strRet As String

Dim x As Integer

strRet = "Super Site"

For x = 1 To Len(strRet)

If Mid(strRet, x, 1) <> " " Then

strAux = strAux & Mid(strRet, x, 1)

End If

Next x

MsgBox strAux

[Bicicleta]

ai Décio, desculpa me meter no tópico, mais não seria mais fácil usar o replace?

Dim Str As String

Str = "Super Site"

Str = Replace(Str, " ", "")

????

[William Rodrigues]

Dim Str As String

Str = "Super Site"

Str = Replace(Str, " ", "")

Mandou bem Bicicleta

Abraços,

William Rodrigues

[Decio]

ai Décio, desculpa me meter no tópico, mais não seria mais fácil usar o replace?

Sem dúvidas...Nem pensei.