If ofd.ShowDialog() = DialogResult.OK Then

            stream = ofd.OpenFile()
        Else
            Exit Sub
        End If
でエラーは起きなくなりました。有難うございました。