'Este exemplo mostra como escrever uma função que
'retorna um array. Técnica muito útil durante o
'desenvolvimento de algumas aplicações.

Module Module1
  Sub Main()
    Dim amigos As String() = Pessoas()

    For i As Integer = 0 To amigos.GetUpperBound(0)
      Console.WriteLine(amigos(i))
    Next

    Console.ReadKey()
  End Sub

  'uma função que retorna um array de strings
  Public Function Pessoas() As String()
    Dim nomes(3) As String

    nomes(0) = "Osmar J. Silva"
    nomes(1) = "Fernando Santos"
    nomes(2) = "Carlos Magalhães"

    'devolve o array
    Return nomes
  End Function

End Module

Informe a duração do evento em segundos: 3712
Duração do evento: 01:01:52