[VB6] Togliere gli spazi da una stringa

[Artemio]

come poso fare per togliere gli spazi all'interno di una striga? ho provato cosi, ma toglie gli spazi solo se c'è n'è 1

    Cognome = Trim(UCase(txtCognome.Text))
    
        For I = 1 To Len(Cognome)
            If Mid(Cognome, I, 1) = " " Then
                Cognome = Left(Cognome, I - 1) & Right(Cognome, Len(Cognome) - I)
            End If
            If Len(Cognome) = I Then
                Exit For
            End If
        Next I

[MdE2005]

Ciao..ti consiglio due strade:

1) usa la funzione Split creando un'array di stringhe (non consigliata)

2) usa la funzione Replace:

Dim Stringa As String
Stringa = " a b c "
MsgBox Replace(Stringa, " ", "", 1)

E vedrai che funziona..

Ciao

[mgmg]

stringa = "Sto diventando un bravo programmatore"
Text1 = Replace(stringa, " ", "")


Ps: Ops! Aveva già risposto Mde2005, Scusa!

[MdE2005]

Figurati mgmg..due è meglio che uno...

Ciao ad entrambi

[Artemio]

grazie mille ad entrambi

[MdE2005]

E' un piacere..

ciao, alla prossima