エクセル マクロ

以下のコードではテキスト(txt)ファイルのデータをエクセルへ貼りつけるものですが 貼りつけるテキストファイルを参照し選ぶ際、 テキストファイル以外を選ぶとエラーが起きてしまいます テキストファイル以外を選んで実行した場合は メッセージボックスを表示するようにはどうすればよいですか? Private Sub CommandButton1_Click() Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) Dim vrtSelectedItem As Variant