Prova con:

codice:
Public Function Matrice() As String()

        Dim a(2) As String
        a(0) = "Uno"
        a(1) = "Due"
        a(2) = "Tre"
        Return a

    End Function