If you don't care how many elements the array has then why not provide a constructor that takes the array upper bound as an argument:
VB Code:
  1. Public Sub New(ByVal upperBound As Integer)
  2.     ReDim Me.Data4(upperBound)
  3. End Sub