Initial data commit

Task/Read-a-file-line-by-line/Visual-Basic-.NET/read-a-file-line-by-line.vb

@@ -0,0 +1,17 @@
+Imports System.IO
+
+  ' Loop through the lines of a file.
+  ' Function assumes that the file exists.
+  Private Sub ReadLines(ByVal FileName As String)
+
+    Dim oReader As New StreamReader(FileName)
+    Dim sLine As String = Nothing
+
+    While Not oReader.EndOfStream
+      sLine = oReader.ReadLine()
+      ' Do something with the line.
+    End While
+
+    oReader.Close()
+
+  End Sub