wenn Du Dein Modul um folgendes ergänzt:
Sub Main() MsgBox RückgabeAlsArray(0, 0) _ & vbTab & RückgabeAlsArray(1, 1) _ & vbTab & RückgabeAlsArray(2, 2) End Sub