PLease, look at your code:
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
OpenFileDialog1.InitialDirectory = "C:\Race\PHRF List\"
OpenFileDialog1.Filter = "txt files(*.txt)|*.txt" '
txtPHRFfile.Text = OpenFileDialog1.FileName
OpenFileDialog1.RestoreDirectory = True
End If
You open the dialog before you set the Initial Directory!
Try this:
OpenFileDialog1.InitialDirectory = "C:\Race\PHRF List\"
OpenFileDialog1.Filter = "txt files(*.txt)|*.txt" '
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
txtPHRFfile.Text = OpenFileDialog1.FileName
OpenFileDialog1.RestoreDirectory = True
End If