Help with dynamic array in VBA

Hello, Could you help me please with this code:

Please Login or Register  to view this content.

Program: Enter a series of numbers terminated by zero. Determine the smallest and write down how many times in a row repeats

Problems are: When I try my program with StepInto, Redim preserves pole(i) shows "subscript out of range", when i insert variable x to array1 at the end of program then it shows value of array1 properly but when program goes to ReDim preserve array1(i) then value is again 0. Array is still 0 and i canīt determine the smallest number (If x < array1(i) Then).

Sorry my english is bad.

you don't need array

Please Login or Register  to view this content.

Homework uh?

With your code you never use the array, the input numbers and the min value are stored in strings

JaxFrings,

Welcome to the forum.

I have added code tags to your first post. As per forum rule 3, you need to use them whenever you put any code in your post. Please add them in future. If you need more information on how to use them, check my signature below this post.