Скорость замены символа в строке. - VB

Формулировка задачи:

Нужно заменить в строковой переменной один символ на другой. Я здесь маленько написал. Вроде работает. Но когда доходит до 5000 замен, уж очень медленно все делается. Большие задержки по времени: 5000 замен - около 3-х секунд.
Может кто-нибудь что-то посоветует?
То, что можно сделать быстрее на VB это точно. У меня есть готовое приложение, где такие замены деляются менее одной секунды.

Решение задачи: «Скорость замены символа в строке.»

textual
                            Листинг программы 
                        
                            <font color="blue">Private</font> saDst <font color="blue">As</font> bstrapi.SAFEARRAY1D