I'M TRYING TO OPEN A DAT FILE BUT WHEN I CLICK ON THE FILE, IT SAYS IT NOT FOUND, HELP!!!

CommonDialog1.Filter = "Data Files(*.dat)|*.dat"
CommonDialog1.ShowOpen

Dim loadedfile As String
loadedfile = CommonDialog1.filename

Dim Load As Long
Load = Shell("" & loadedfile, vbNormalFocus)