'moDogs ist ein Dictionary
Public Function AddDog(ByVal sKey As String) As Dictionary
 
Dim oDic As Dictionary
 
Set oDic = New Dictionary
On Error Resume Next
moDogs.Add oDic, sKey
If Err Then
Set oDic = Nothing
Else
On Error GoTo 0
oDic.Add "KeyDog", sKey
End If
Set AddDog = oDic
 
End Function