Vedi un po' se capisci quello che ti ho postato...
codice:
Dim mioArraySettimana() As String

Private Sub Command1_Click()
    RiempiArray
End Sub

Sub RiempiArray()

    ReDim mioArraySettimana(6, 6)

    mioArraySettimana(0, 0) = "Lunedì"
    mioArraySettimana(0, 1) = "uno"

    mioArraySettimana(1, 0) = "Martedì"
    mioArraySettimana(1, 1) = "due"

    mioArraySettimana(2, 0) = "Mercoledì"
    mioArraySettimana(2, 1) = "tre"

    mioArraySettimana(3, 0) = "Giovedì"
    mioArraySettimana(3, 1) = "quattro"

    mioArraySettimana(4, 0) = "Venerdì"
    mioArraySettimana(4, 1) = "cinque"

    mioArraySettimana(5, 0) = "Sabato"
    mioArraySettimana(5, 1) = "sei"

    mioArraySettimana(6, 0) = "Domenica"
    mioArraySettimana(6, 1) = "sette"
End Sub

Private Sub Command2_Click()
    
    Text.Text = mioArraySettimana(0, 1) & ": " & mioArraySettimana(0,
 0) & vbNewLine
    Text.Text = Text.Text & mioArraySettimana(1, 1) & ": " & 
mioArraySettimana(1, 0) & vbNewLine

    Text.Text = Text.Text & mioArraySettimana(2, 1) & ": " & 
mioArraySettimana(2, 0) & vbNewLine

    Text.Text = Text.Text & mioArraySettimana(3, 1) & ": " & 
mioArraySettimana(3, 0) & vbNewLine

    Text.Text = Text.Text & mioArraySettimana(4, 1) & ": " & 
mioArraySettimana(4, 0) & vbNewLine

    Text.Text = Text.Text & mioArraySettimana(5, 1) & ": " & 
mioArraySettimana(5, 0) & vbNewLine

    Text.Text = Text.Text & mioArraySettimana(6, 1) & ": " & 
mioArraySettimana(6, 0) & vbNewLine
    
End Sub

Private Sub Command3_Click()
    
    Text.Text = ""
    Erase mioArraySettimana
    
End Sub
cmq caro Antagonia, io ti consiglierei di cuore di prenderti un manuale e cominciare a dargli un'occhiatina seriamente... è inutile che tenti strade più o meno complesse senza avere ben ferme le basi.

il mio è un consiglio, puoi accettarlo come no... sta a te.

ciao...