Const E_OUTOFMEMORY = &Hffffffff
 
Public Function GetIrgendwas(oDic AS Variant) As Long
    Static oD As Dictionary
 
    'Eine Dictionary-Instanz erzeugen
    Set oD = New Dictionary
 
    If ObjPtr(oD) > 0 Then
       Set oDic = oD
       GetIrgendWas = 0
    Else
       GetIrgendWas = E_OUTOFMEMORY
    End If
End Function