This is my first excursion into dynamic arrays. When I run this code I get an overflow error. I realized it may have something to do with datatype incompatibility so I
changed the array to a LONG with the same results. Any ideas?

By the way, txtEnding and txtBeginning are 13 - digit serial numbers.

v = (txtEnding.Text - txtBeginning.Text)
ReDim Preserve strSeqArray(v + 1)
strSeqArray(0) = txtBeginning.Text
For p = 1 To v
strSeqArray(p) = txtBeginning.Text + p
Next p