Eliminare gli spazi dentro una frase

'*********************************************
'CAD = frase da convertire
'*********************************************
Function EliminaSpazi(CAD As String) As String
Dim i As Integer, CADAUX As String
If Len(CAD) = 0 Then Exit Function
For i = 1 To Len(CAD)
    If Mid(CAD, i, 1) <> " " Then CADAUX = CADAUX & Mid(CAD, i, 1)
Next i
EliminaSpazi = CADAUX
End Function

Testato su: Tutti i Sistemi operativi