Dim Tage() As String = _
{"Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag","Sonntag"}
 
Dim i As Integer
 
For i = 0 To Tage.GetUpperBound(0)
     ' Tage ausgeben
     MessageBox.Show(Tage(i)
Next

Dim Schachbrett(,) As String = {{"A1","B1","C1","D1","E1","F1","G1","H1"}, _
                                                         {"A2","B2","C2","D2"," & _
                                                         "E2","F2","G2","H2"}, _
                                                         ' ...
                                                         {"A8","B8","C8","D8"," & _
                                                           "E8","F8","G8","H8"}}

MessageBox.Show(Schachbrett(0,3))

Ralf