Oppure
Private Function funzione() As Integer() Dim a(1 To 10) As Integer ' ... funzione = a End Function