Public Class Form1
 
    Const initialdir As String = "c:\test\"
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button5.Click
 
        Dim dlg As New OpenFileDialog
 
        With dlg
            .AddExtension = True
            .InitialDirectory = initialdir
            .Title = "Datei öffnen"
            .ValidateNames = True
        End With
 
        dlg.ShowDialog()
 
        If dlg.FileName = "" Then
            Exit Sub
        End If
 
        Dim sw As New System.IO.StreamReader(dlg.FileName)
 
        Dim inhalt As String = sw.ReadToEnd
 
        sw.Close()
        MessageBox.Show(inhalt)
 
    End Sub
 
End Class

EALA FREYA FRESENA