array() function

[Guest]

I'm trying to stuff a series of string values into an array and I'm missing
something stupid:

Dim tIdents() As Variant, tString as string
Dim i As Integer, j As Integer

If gvString & "" <> "" Then
tIdents = Array(CVar(gvString))
Else
tIdents = Array(CStr(Me.OpenArgs))
End If
' ReDim Preserve tIdents(3)
j = UBound(tIdents)
For i = 0 To j: Debug.Print i & ": " & tIdents(i): Next i

 

[Chris2]

I'm trying to stuff a series of string values into an array and I'm missing
something stupid:

Dim tIdents() As Variant, tString as string
Dim i As Integer, j As Integer

If gvString & "" <> "" Then
tIdents = Array(CVar(gvString))
Else
tIdents = Array(CStr(Me.OpenArgs))
End If
' ReDim Preserve tIdents(3)
j = UBound(tIdents)
For i = 0 To j: Debug.Print i & ": " & tIdents(i): Next i

Kevin Ward,

May I ask what is going wrong?


Sincerely,

Chris O.