dim arraystr() as string for i=0 to 10 arraystr += i next
len(arraystr)=10
Dim s() As String Dim i As Integer For i = 0 To 9 ReDim Preserve s(i) s(i) = i Next MsgBox UBound(s())
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)