For that you could use:
.Text = "[! ^13^l^m^n^s^t" & ChrW(8194) & "]{2,}"