intanto devi fare un dimensionamento dinamico
dim A as String
dim conta as long

Private Sub txtFrmCerca_KeyPress(KeyAscii As Integer)
redim A(conta) as string
conta = conta + 1
A(conta) = Chr$(KeyAscii)
end sub