Grazie, risolto il problema.

Private Sub txtFrmCerca_KeyPress(KeyAscii As Integer)
ReDim Preserve A(conta)
A(conta) = Chr$(KeyAscii)
conta = conta + 1
txtFrmCerca.Text = ""
For i = 0 To UBound(A)
txtFrmCerca.Text = txtFrmCerca.Text & A(i)
Next i
End Sub

Adesso l'unico inconveniente e che io alla pressione di un tasto scrivo la lettera premuta nel campo testo e nello stesso tempo riempo l'array che vado a leggere ed visualizzare nel campo testo.
Quello che vorrei fare e rendere invisibile la prima lettera.

Poi dovrei fare una funzione che intercetti la pressione dei tasti indietro e cancella per eliminare eventuale lettera.


Altra domanda come elimino il contenuto di un array?