.... oppure prova così:


Dim myStreamReader As StreamReader
myStreamReader = File.OpenText("NomeFile")

While Not myStreamReader.EndOfStream
If myStreamReader.ReadLine()= "Versione=01.001.832 " then
.............................
.............................
End if
End While


senza dimenticare:

Imports System.IO