Некоторые сложности в Replace, хочу убрать кавычки из текста. - VB

У меня есть текст в stringe. Я хочу из текста убрать кавычки. Написала код:

Dim KeyAscii As Integer, sl as string
KeyAscii = Asc('34')
 
            sl = Trim$(Replace(sl, KeyAscii, ''))

а кавычки остались. Где я ошиблась?

textual
                            Листинг программы 
                        
                            sl=Trim$(Replace(sl,'''',''))