Um.
Look at your code:
Dim fd As New OpenFileDialog
Dim fullFileName() As String = fd.FileName.Split("\")
fd is a
new OpenFileDialog - so it's never been presented to the user, it's never had a file selected, so it doesn't have a file name. Did you mean to call
fd.ShowDialog
at some point?