Visual Basic - como usar apropiadamente el type y el put

Hola a todos!!!

Soy nuevo en el foro y en visual. el problemilla es que estoy desarrollando un macro en Excel con ficheros de acceso aleatorio y por supuesto con algunas varíales TYPE (definidas por el usuario). El punto es que cuando agrego - o modifico- una nueva variable de esta clase dentro de la estructura TYPE - END, se borran los datos que ya se habìan insertado. ejemplo:

Private Type principales
empresa As String * 24
p1 As String * 12
p2 As String * 12
p3 As String * 12
******** TODO SE BORRA SI PONGO JUSTO AQUÌ UN p4 as string * 12 **********
p5 As String * 12
p6 As String * 12
p7 As String * 12
p8 As String * 12
p9 As String * 12
p10 As String * 12
p11 As String * 12
p12 As String * 12
p13 As String * 12
p14 As String * 12
p15 As String * 12
p16 As String * 12
p17 As String * 12
p18 As String * 12
p19 As String * 12
p20 As String * 12
vacio As Boolean
End Type

Lo mismo cuando uso el PUT para modificar algunas de estas variables . pero si sobre el proceso requiero asignar valores a dos de todas estas variables por ejemplo p20 y p19; me toca asignar valores al resto por que de lo contrario solo se insertarian p20 y p19 y el resto asì ya halla sido asignado algún valor quedan en ceros “ “

gracias!!

Y si declaras tu Type asi

Type principales
p(20) As String
End Type

Private Sub Command1_Click()
Dim a As principales

a.p(2) = "hola"

Debug.Print a.p(2)
End Sub

espero te sirva