cagataybaser
New Member
- Joined
- Jul 28, 2014
- Messages
- 34
I have a code like this
And I got error message Subscript out of range with ReDim Preserve
Can you help me about that?
Code:
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
Can you help me about that?