Dim x As New str_kontakte
x.name = New ArrayList
x.name.Add("Max")
x.name.Add("Muster")

    Structure str_kontakte
        Dim name As ArrayList
        Dim telephone As String
        Dim email As String
 
        Public Sub New(ByVal strName As String) 'oder irgend etwas anderes
            name = New ArrayList
            name.Add(strName)
        End Sub
    End Structure

Dim x As New str_kontakte("max")
x.name.Add("Muster")