Imports System.Text
Imports System.IO
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim Lesen As New StreamReader("c:\Test.txt", Encoding.GetEncoding(850))
 
        Dim TextInhalt As String = Lesen.ReadToEnd()
 
        Lesen.Close()
 
        MsgBox(TextInhalt)
 
    End Sub
End Class