Module Module1

    Sub Main()
        Dim num As Integer
        Dim sr As System.IO.StreamReader

        sr = System.IO.File.OpenText("data.txt")
        num = CInt(sr.ReadLine)
        sr.Close()
        
        System.Console.WriteLine("the value entered is "&num)
  
    End Sub

End Module