Option Explicit On
Imports System.IO
Imports System
 
       Dim openstream As Stream = Nothing
        Dim zwstr As String
 
        If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK _
          Then
            Try
                openstream = OpenFileDialog1.OpenFile()
                If (openstream IsNot Nothing) Then
                    MessageBox.Show(zwstr)
                    ' Insert code to read the stream here.
                End If
            Catch Ex As Exception
                MessageBox.Show("Die Datei konnte nicht geöffnet werden!" & _
                  "Fehlermeldung: " & Ex.Message)
            Finally
                ' Check this again, since we need to make sure we didn't throw _
                  an exception on open.
                If (openstream IsNot Nothing) Then
                    openstream.Close()
                End If
            End Try
        End If