Dim OFD As New OpenFileDialog

 OFD.Filter = "x ファイル|*.x"

 OFD.Title = "XFileを開く"

 If OFD.ShowDialog() = DialogResult.OK Then

  Dim xFile As String

 End If