brug af object efter reload

Hej

Jeg har en klasse:
Class Country
    Public Name
    Public Price1
    Public Price2
    Public p1p2Diff
   
    Public Function Compare (objOther)
        ' Default Compare for the Class is to sort by Name
'        Compare = strComp( me.Name, objOther.Name, vbTextCompare )
        Compare = strComp( me.Price1, objOther.Price1, vbTextCompare )
    End Function   
End Class

Så sætter jeg data i:
Dim aCountry, bCountry, cCountry
Set aCountry = New Country
    aCountry.Name = "Afghanistan2"
    aCountry.Price1 = 1.5
    aCountry.Price2 = 3.5
    aCountry.p1p2Diff = aCountry.Price1-aCountry.Price2
       
Set bCountry = New Country
    bCountry.Name = "Albania"
    bCountry.Price1 = 1.2
    bCountry.Price2 = 6.5
    bCountry.p1p2Diff = bCountry.Price1-bCountry.Price2

'sætter dem ind i et array
Session("arrArray2") = Array(Country0,Country1, Country2)
arrArray = session("arrArray2")

Så er spørgsmålet..

Hvordan kan jeg gemme objekter, så jeg kan genbruge mine objekter?
Iøjeblikket gemmer jeg åbenbart kun et array med navnene. Når jeg reloader så er objekterne væk.

Da jeg skal indlæse store data ønsker jeg ikke at oprette klasserne hele tiden.

Vi bare bruge de objekter som er indlæst engang.

Kan i følge mig?