Gemme collections

Hvordan F..... får jeg det her ned i en datafil så jeg kan hente det ind igen??

har oprette et Class module(som jeg senere skal have funtioner m.m i:
Option Explicit

Public MyDato As String
Public MyType As String
Public Mytekst As String
Public MyTid As String

Knap på form:
Dim mineAftaler As New Collection
Dim aftale As aftaler
Set aftale = New aftaler
        aftale.MyDato = txtDato.Text
        aftale.MyTid = cboTid.Text
        aftale.MyType = Combo1.Text
        aftale.Mytekst = tekst.Text
        mineAftaler.Add aftale
            Open "D:/opgaver.dat" For Random Access Write As #1 Len = Len(aftale)
                Put #1,(mineAftaler.count), aftale
            Close
End Sub

Vil gerne uddybe det mere hvis det er nødvendigt, og flere points hvis det er en must