Помогиет с программой пожалуйста

Question

Задание: Даны два слова одинаковой длины. Присвоить переменной k число, равное количеству попарно РАЗЛИЧНЫХ букв. 
Я знаю как пишется программа для попарно ОДИНАКОВЫХ букв. 
Dim s1 as string, s2 as string, k as integer 
s1=textbox1.text 
s2=textbox.text 
k=0 
for i=1 to Len(s1) 
if mid(s1,i,1)=mid(s2,i,1) then k=k+1 
next 
... 
А как будет для РАЗЛИЧНЫХ?

Дмитрий · Accepted Answer

Ну видимо то же самое, только знак другой тут 
if mid(s1,i,1)<>mid(s2,i,1) then k=k+1 
 
)