Also eigentlich sollte das zweite funktionieren, hier ist funktionierender Code (grade ausprobiert):
Sub Test1()
Dim myList List as String
myList( "TEST" ) = "Hallo Welt"
Call Test2( myList )
End Sub
Sub Test2( varList as Variant )
Msgbox varList( "TEST" )
End Sub
und bei mir funktioniert auch das hier
Option Declare
Sub Click(Source As Button)
Dim sListe List As String
sListe( "a" ) = ""
sListe( "b" ) = ""
Call p_PrintListe( sListe )
End Sub
Sub p_PrintListe( x_sListe List As String )
Forall e In x_sListe
Print Listtag( e )
End Forall
End Sub