La Read legge un singolo carattere. Devi usare la ReadToEnd.
codice:Function LeggiFile(ByVal PathFile As String) As String Dim tstr As String Dim StreamR As New System.IO.StreamReader(PathFile) tstr = StreamR.ReadToEnd() StreamR.Close() Return tstr End Function