How to open a file with one line of code!

Public Function Openf(frm As Form, Text As RichTextBox, Dialog As CommonDialog)
   On Error Resume Next
    Dialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*|" 'Edit the filter how you want it 
    Dialog.Flags = cdlOFNPathMustExist & cdlOFNHideReadOnly
    Dialog.Action = 1
    Screen.MousePointer = vbHourglass
    Text.Text = ""
    Text.LoadFile Dialog.filename
    frm.Show
    frm.Refresh
    Screen.MousePointer = vbNormal
End Function
Private Sub Command1_Click()
Call Openf(Me, RichTextBox1, CommonDialog1)
End Sub