Frage zu Typename

Sub Typensuche()
Dim Verzeichnis   As Object
Set Verzeichnis = CreateObject("Scripting.Dictionary") ' Create(late binding)
Debug.Print "Verzeichnis ist ein " & TypeName(Verzeichnis)
'Liefert: "Verzeichnis ist ein Dictionary"
Dim Sammlung As New Collection
Debug.Print "Sammlung ist eine " & TypeName(Sammlung)
'Liefert: "Sammlung ist eine Collection"
Dim Raster
ReDim Raster(1 To 5, 1 To 2)
Debug.Print "Raster ist eine " & TypeName(Raster)
'Liefert: "Raster ist eine Variant()"
End Sub