Private Sub Command1_Click()
    Dim dic As Dictionary
    Dim keys As Variant
    Dim items As Variant
    Dim i As Long
    Dim ff As Integer
 
    Set dic = New Dictionary
 
    Call dic.Add("A", "Anton")
    Call dic.Add("B", "Berta")
 
    ff = FreeFile
    Open App.Path + "\myDictionary.dic" For Output As #ff
 
    keys = dic.keys
    items = dic.items
 
    For i = 0 To dic.Count - 1
        Print #ff, keys(i) + ", " + items(i)
    Next
 
    Close ff
 
    Set dic = Nothing
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1