Public ReadOnly BausteineArr(2) As String
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        BausteineArr(0) = "aaa"
        BausteineArr(1) = "xxx"
        BausteineArr(2) = "zzz"
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist