拆分基于短划线和'他们破折号'

我正在尝试使用VBA Split来标记一个带有破折号/连字符的string数据中包含Excel em-dashes。

任何想法如何我可以分裂他们?

Split("This-works-fine", "-") Split("This–not–so–well", "-") 

尝试这个:

 Split("This–not–so–well", chrw(8211))