'Array befüllen
        Dim arrTxt() As String = New String() {"Montag", "Dienstag", _
          "Mittwoch", "Donnerstag"}
 
        'oder eine List, falls es dynamisch sein soll
        Dim lstTxt As New List(Of String)
        lstTxt.Add("Montag")
        lstTxt.AddRange(New String() {"Mittwoch", "Donnerstag"})
        lstTxt.Insert(1, "Dienstag")