array() function

  • Thread starter Thread starter Guest
  • Start date Start date
G

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
 
Kevin Witty said:
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
Click to expand...

Kevin Ward,

May I ask what is going wrong?


Sincerely,

Chris O.
 
Back
Top