Public Structure tDaten
    Dim Teil_A() As String
    Dim Teil_B As Integer
 
    Public Sub New(ByVal Length As Integer)
         If Length < 1 Then Length = 1
         Array.Resize(Teil_A, Length)
         For i As Integer = 0 To Length - 1
             Teil_A(i) = String.Empty
         Next i
    End Sub
End Structure
 
'Array:
Dim glob(10) As tDaten
For i As Integer = 0 To glob.Length - 1
    glob(i) = New tDaten(10)
Next i