Comparar dos strings letra a letra dentro de Macro

Trabajando con el editor de Macros de Excel 2003 tengo una función en
la que tengo que comparar 2 strings letra a letra (como si fuera un
arreglo de caracteres) y decirme cuantas letras coinciden.
Había pensado hacer algo así, pero no sirve:
    Dim res as Integer
    res = 0
    For i = 1 To Len(cadena1)
        If cadena1(i) = cadena2(i) Then
           res = res + 1
        End If
    Next i
Cabe destacar que los string están en una variable, no en una celda
¿Alguna idea? Gracias