Aşağıda yapmak istediğim text1 içindeki bir ifadeyi text2 içine girerken yanlış yazılmışsa kelimenin farklı bir renk tonu ile gösterimini sağlamak yardımcı olursanız sevinirim....

Private Sub Text2_Change()
str1 = Mid(Text1, Len(Text2), 1)
str2 = Mid(Text2, Len(Text2), 1)

If str1 = str2 Then
Text2.ForeColor = &H0&
Else
Text2.ForeColor = &HFF&
End If
' burda text içinde cortrolü yaptırıyorum ama tamamını kontrol ediyor.
' aynısını Rich