ReDim Error

[cagataybaser]

I have a code like this

Private Sub Sample()
Dim exstrn() As String
Dim i As Integer
i = 1
Do
i = i + 1ReDim Preserve exstrn(0 To UBound(exstrn) + i) As String

And I got error message Subscript out of range with ReDim Preserve
Can you help me about that?

 

[Andrew Poulsom]

You have to Dim before you can ReDim.