Orientação a objeto

Olá. Não tenho experiência com OO.

Tenho o seguinte caso. Criarei um objeto 'edital', que possui alguma propriedades, como id, data de inicio, etc e também terá uma propriedade (não sei se assim que se chama mesmo) chamada loc que será um array onde cada item deste array será um outro objeto, o objeto 'loc'.

Um método do edital é o adicionarLoc, que deveria adicionar um objeto 'loc' ao array 'edital.loc'.

Meu problema é o seguinte, não consigo redimensionar este array 'edital.loc' antes de adicionar um objeto a ele. Toda vez que uso o método adicionarLoc o array 'edital.loc' é zerado.

Me ajudem por favor, como posso fazer para redimensionar este array toda vez que adicionar um novo objeto 'loc' ao edital?

Abaixo segue meu código:

Class edital

Public idEdital
Public dtInicio
Public dtTermino
Public matResp
Public loc

Public Sub adicionarLoc(objUF)
loc = Array()
tamanhoLoc = Ubound(loc)
novoTamanho = tamanhoLoc + 1
ReDim Preserve loc(novoTamanho)
Set loc(novoTamanho) = objUF
End Sub

End Class

Class loc

Public loc
Public nome
Public esp

End Class

Set objEdital = new edital

Set objUF = new loc
objUF.loc = "DF"
objUF.nome = "DISTRITO FEDERAL"
objEdital.adicionarLoc(objUF)

Set objUF2 = new loc
objUF2.loc = "SP"
objUF2.nome = "SÃO PAULO"
objEdital.adicionarLoc(objUF2)