OpenFileSorted...HELP!

Here is the coding I have so far:

Dim HUDdatafile As String
OpenFileSorted.ShowDialog()
HUDdatafile = OpenFileSorted.FileName
Dim sr As IO.StreamReader
sr = IO.File.OpenText(HUDdatafile)

When the box opens for you to pick a file and then if I hit Cancel, it gives me an error. What code should I use so it doesn't do that? Please help! Thanks!

Brenda

VB Code:

Dim HUDdatafile As String
Dim sr As IO.StreamReader
OpenFileSorted.ShowDialog()
HUDdatafile = OpenFileSorted.FileName
If HUDdatafile.Length > 0 Then
    sr = IO.File.OpenText(HUDdatafile)
End If