[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