OpenFile

Hallo zusammen,
ich möchte eine Prozedur (Konsolenanwendung) schreiben, mit der ich Dateien öffnen kann.
Soweit klappt es ganz gut, also der Dialog geht auf, ich wähle eine Datei aus, aber diese geht nicht auf.
Hier mein Code:
Dim OpenFileDlg As New OpenFileDialog()
        If OpenFileDlg.ShowDialog() = DialogResult.OK Then
            Dim sr As IO.StreamReader
            sr = New IO.StreamReader(OpenFileDlg.FileName)
        End If
Außerdem möchte ich noch, dass die Konsole einen Text ausgibt, wenn auf Abbrechen gedrückt wurde.
Das würde ich dann mit Else probieren und einfach mit console.writeline("text"). Aber ich glaube, dass das zu schwammig ist.
Ich hoffe mir kann jemand helfen. Vielen Dank schon Mal.