求大神帮忙做个程序

if text1<>text2 then for mid 循环

Private Sub Command1_Click()
If Text1.Text = Text2.Text Then
MsgBox ("完全正确")
Else
For i = 1 To Len(Text1.Text)
If Left(Text1.Text, i) <> Left(Text2.Text, i) Then
Text3.Text = Left(Text1.Text, i - 1)
Exit For
End If
Next i
End If
End Sub
额……还是不会把光标移动，于是加了个text3，也算是可以用了

是不是可以用select case 语句啊？个人认为if then 代码多。

如果有两处以上的不一样的地方，那要移动到哪一个？