Dim selectedFileName As String = ofd.FileName 'ファイル選択ダイアログからファイル名を得る
Dim selectedFileName As String = TextBox1.Text 'テキストボックスからファイル名を得る