Module Module1
Sub Main()
Dim array As Integer() = SetNumbers()
Print(array)
End Sub
Private Function SetNumbers() As Integer()
Dim array As Integer() = {123, 98, 712}
Return array
End Function
Private Sub Print(array As Integer())
For i = 0 To array.GetUpperBound(0)
Console.WriteLine($"{array(i)} ")
Next
End Sub
End Module
' run:
'
' 123
' 98
' 712