Dovresti dichiararlo con
codice:
Dim Code(0) As String
poichè il valore indicato in Dim costituisce il limite superiore del vettore.

Anche qui c'è lo stesso problema.

Ciao!