从vba中的字符串的开头和结尾删除空格

I've written this function to delete blanks from the start and the end of a string, any ideas why it isn't working?I've written this function to delete blanks fro