Imports System
Imports System.IO

Class Sample
  ' ファイルから複数の値を読み込むメソッド
  Shared Function ReadValuesFromFile(ByVal file As String) As Integer()

    If File.Exists(file) Then
      Dim values() As Integer

      ' ファイルを開いて読み込んだが、読み込み対象の値が無かった場合を想定する
      ' 値が無かったことを表すため、Nothingではなく空の配列を返す
      values = New Integer() {}

      Return values
    Else
      Throw New FileNotFoundException("ファイルがありません", file)
    End If

  End Function

  Shared Sub Main()

    ' ファイルから読み込んだ値を列挙する
    ' (ファイルに目的の値がなかった場合でもメソッドは空の配列を返すため、
    ' null判定を行うことなく列挙を行うことができる)
    For Each val As Integer In ReadValuesFromFile("data.txt")
      Console.WriteLine(val)
    Next

  End Sub
End Class