Vb2008 Open File

On Error GoTo E
        Dim openit As New OpenFileDialog
        openit.ShowDialog()
        Dim readit As New System.IO.StreamReader(openit.FileName)
        RichTextBox1.Text = readit.ReadToEnd
        readit.Close()
Exit sub
E:
End sub