Seria algo asi...
Código HTML:
Public Shared Sub Main()
Try
Dim sr As StreamReader = New StreamReader("TestFile.txt")
Dim line As String
Do
line = sr.ReadLine()
For Each project As String In line.toString().Split(";")
''aqui deberias incluir las intrucciones para insertar en la BD
Next
Loop Until line Is Nothing
sr.Close()
Catch E As Exception
Console.WriteLine("No se puede leer el archivo")
Console.WriteLine(E.Message)
End Try
End Sub
Salu2,