Problemer med brug af Arrays.

Hej eXperter.

Jeg har mig lidt problemer med Arrays.

Check nedenstående kode:
'Script-------------
Dim WshShell, TestArr(), GlobalCounter

Set WshShell = CreateObject("Wscript.Shell")

GlobalCounter = 0

PutInfoInArray("Test1")
PutInfoInArray("Test2")
PutInfoInArray("Test3")
PutInfoInArray("Test4")
PutInfoInArray("Test5")
PutInfoInArray("Test6")
PutInfoInArray("Test7")
PutInfoInArray("Test8")
PutInfoInArray("Test9")
PutInfoInArray("Test10")

PrintArray()

Function PutInfoInArray(Info)
   
    TestArr(GlobalCounter) = Info
    GlobalCounter = GlobalCounter+1

End Function

Function PrintArray

    For i=0 To UBound(TestArr) Step 1
        WshShell.Popup TestArr(i)
    Next
   
End Function
'Script End---------------

Jeg kan ikke få mit array til at virke, måske definere jeg det forkert?

I dokumentationen skriver de at man kan definere det ved at skrive "Dim ArrayNavn()" for at det kan være et dynamisk Array, men det kan jeg ikke få til at virke.

I det konkrete tilfælde hvor jeg skal bruge det, skal det være dynamisk.

Nogen ideer? (Selvfølgelig har i det.)