Como passar um array para um método que efetuará alterações no array original

'Este exemplo mostra como passar um array de
'inteiros para um método. Observe que estamos usando
'ByRef no parâmetro do método. Isso permite que o array
'original seja modificado

Module Module1
  Sub Main()
    Dim valores As Integer() = New Integer() _
      {5, 12, 3, 54, 10}

    'exibe os valores originais
    For i As Integer = 0 To valores.GetUpperBound(0)
      Console.WriteLine(valores(i))
    Next

    'passa o array para o método ModificarArray
    ModificarArray(valores)

    Console.WriteLine()

    'exibe os valores alterados
    For i As Integer = 0 To valores.GetUpperBound(0)
      Console.WriteLine(valores(i))
    Next

    Console.ReadKey()
  End Sub

  Sub ModificarArray(ByRef array As Integer())
    For i As Integer = 0 To array.GetUpperBound(0)
      array(i) = array(i) + 2
    Next
  End Sub
End Module