Problemas con comparacion de caracteres

[yera2002]

Hola a todos:

Tengo una funcion que compara caracteres en una cadena, pero extrañamente no siempre me compara bien. Ojala alguien me pueda ayudar, ya le he buscado...Este el codigo.

Function Simbolo() As String
Dim nCount As Integer
Dim strCadenaNueva As String, strCadena As String

strCadena = "hOLA.De esto es una prueba de comparacion"

strCadenaNueva = ""

For nCount = 1 To Len(strCadena)
If Mid(Ucase(strCadena), nCount, 1) = "D" Then
strCadenaNueva = strCadenaNueva & "="
Else
strCadenaNueva = strCadenaNueva & Mid(strCadena, nCount, 1)
End If
Next

Simbolo = strCadenaNueva
End Function

Lo más curioso es que en ocasiones si lo hace bien y en ocasiones no. Se supone me deberia regresar "hOLA.=e esto es una prueba =e comparacion"
Pero a veces me regresa la cadena bien y en ocasiones hace algo asi

"hOLA.De esto es una prueba =e comparacion"
"hOLA.De esto es una prueba de comparacion"
"hOLA.=e esto es una prueba de comparacion"

Uso visual basic 60

Saludos...