a me questo codice NON dà errore

codice:
 Sub Main()

        Dim testo As String = "pippo###pluto###paperino"
        Dim Caratteristiche(2) As String
        Caratteristiche = OttieniArray(testo)
        Dim indirizzo1, indirizzo2 As String
        indirizzo1 = Caratteristiche(1)
        indirizzo2 = Caratteristiche(2)


    End Sub

    Public Function OttieniArray(ByVal testo) As Array
        Dim indirizzi() As String
        indirizzi = Split(testo, "###")
        Return indirizzi
    End Function