Problemer med at orverføre variant

Jeg har 1 funktion som jeg er ved at teste, men kan ikke skrive indholdet af argumentet ud, jeg får compile error: "Wrong number of argument or invalid property assignment"
min kode ser følgende ud:

Public Function GetGrafVisningsEgenskab() As Variant

Dim strEgenskab  As String
Dim arrSplit As Variant
strEgenskab = DLookup("[grafVisning]", "Setup", "[Ini]='" & Forms!Setup!INI & "'")
arrSplit = Split(strEgenskab, "#")
'MsgBox arrSplit(0)
GetGrafVisningsEgenskab = arrSplit

End Function



Public Sub test()
Dim visningEgenskab As Variable
Call GetGrafVisningsEgenskab
MsgBox visningEgenskab(0)
End Sub


Kan godt skrive ud i selve funktionen men ikke i testen.