Hola!
A ver si te sirve este código
Código:
Dim archivo As New StreamReader(PATH & "prueba.txt", System.Text.UnicodeEncoding.UTF8)
Dim Valores as String()
Do Until archivo.Peek = -1
valores = archivo.ReadLine.Split(";")
FuncionInsertar()
Loop
Saludos!