Удалить кавычки в строке - VBA

Здравствуйте! На листе1 в строке 431 пятой колонки находится слово в кавычках - "Белая" Мне нужно убрать кавычки Я ввожу стринговую переменную и инициализирую её данными из ячейки. str = Trim(Worksheets(1).Cells(431, 5).Value) Получается переменная str = "Белая" Пишу: If (str Like "*" & Chr(34) & "*" & Chr(34) & "*") Then str= Replace(str, Chr(34), "") Но кавычки не убираются((( При этом для интереса написала ещё вот так: str1 = Chr(34) & "Белая" & Chr(34) И в этом случае конструкция If срабатывает и кавычки убираются. Так что же не так с первым вариантом, когда переменная инициализируется данными ячейки? Мелочь, но никак не могу обойти( Помогите, пожалуйста... Спасибо.