Excel2013では、TEXTJOIN 関数が使えません。

古いExcelで使うため以下のユーザ定義関数をExcelVBAの標準モジュールに設定するば、

TEXTJOIN関数と同じような動きができました！

上記ソースをエクセルVBAの標準モジュールにコピーすればOK