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