Dynamische array() :shocked:

[That Guy]

Okay, dit is mijn 4e vraag geloof ik en ik hoop dat deze wel een keer word opgelost (ha ha, kidding)
Okay, het zit dus zo, ik krijg arrays niet onder de knie, niet omdat ik het niet snap maar omdat het gewoon niet werkt bij mij Het is de bedoeling, dat ik een functie heb die iets toevoegd aan een array, dus, ik had een scriptje gemaakt:

module1.bas

Option Explicit
Public varArray() As String
Public Function AddVar(sToAdd As String)
    If (Not varArray()) Then
        ReDim varArray(0)
    Else
        ReDim Preserve varArray((UBound(varArray()) + 1))
    End If
varArray(UBound(varArray)) = sToAdd
End Function

form1.frm

Option Explicit
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 5
AddVar (i)
List1.AddItem varArray(i)
Next i
End Sub

Hij blijft een subscript-outof-range geven (err # 9)
Iemand een oplossing?


V.:thumb: