Immer noch nicht völlig klar. Aber ich könnte mir vorstellen, dass du vielleicht sowas suchst?

Sub Route_Anzeigen()
 
 Dim uebergabepunkt As String
 Dim gaesteliste As New Collection, gl As Collection
 Dim zwischenstationen As Object, zw, g, s As String
 
 Set zwischenstationen = CreateObject("Scripting.Dictionary")
 
 uebergabepunkt = "Oklahoma"
 gaesteliste.Add "Günther"
 gaesteliste.Add "Heinz"
 zwischenstationen.Add uebergabepunkt, gaesteliste
 Set gaesteliste = Nothing
 
 
 uebergabepunkt = "Manchester"
 gaesteliste.Add "Günther"
 zwischenstationen.Add uebergabepunkt, gaesteliste
 Set gaesteliste = Nothing
 
 
 For Each zw In zwischenstationen
    Set gl = zwischenstationen(zw)
    s = zw & ": "
    For Each g In gl
      s = s & g & ", "
    Next g
    Debug.Print Left(s, Len(s) - 2)
 Next zw

End Sub

PS: Die Funktion ValueToString ist in meiner Version noch nicht enthalten, deshalb habe ich den string der Gäste in einer Schleife berechnet.

Gruß Mr. K.