Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim strfehlerliste()
 
        strfehlerliste(0) = "A"
        strfehlerliste(strfehlerliste.Count) = "B"
 
        For i = 0 To strfehlerliste.Length - 1
            MessageBox.Show(strfehlerliste(i))
        Next
    End Sub