Call FindReplaceAll("[ ]{2" & strWordVersion & "}", " ", "Message")