Comparar Palabras de Celdas

hace un tiempo LuisModelo me ayudo con este código para comparar palabras de dos celdas y pintar de rojo las diferencias. Funciona perfecto y me ha sido de mucha utilidad pero ahora necesito que la comparación sea por palabra.

Ojala puedan ayudarme. Gracias!

tope1 = Len(Range("Q9"))
tope2 = Len(Range("Q57"))
tope = Application.WorksheetFunction.Max(tope1, tope2)
For X = 1 To tope
If Mid(Range("Q9"), X, 1) <> Mid(Range("Q57"), X, 1) Then
Range("Q57").Characters(X, 1).Font.ColorIndex = 3
End If
Next