Определить, можно ли из символов заданной строки составить вашу фамилию - VB (59940)

Формулировка задачи:

Всем привет. в общем написал код, который в принципе работает, но преподавателя не устраивает. Суть в том что, если фамилия "иивв", а в строке"кккккив", программа пишет, что можно составить фамилию, хотя как видно в строке не хватает "и" и "в". Как это исправить? Вот собственно мой код:

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim S As String = TextBox1.Text
Dim r As String = TextBox2.Text
Proverka(S, r)
TextBox2.Text = r
End Sub
 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
'Процедура сравнения символов двух строк
Sub Proverka(ByVal S As String, ByVal r As String)
Dim i, k, q As Integer
For i = 1 To Len(r)
If InStr(i, S, Mid(r, i, 1)) > 0 Then k = k + 1
q = r.Length
If k = q Then
TextBox3.Text = "Можно"
Else
TextBox3.Text = "Нельзя"
End If
Next i
End Sub
End Class

Спасибо!

Решение задачи: «Определить, можно ли из символов заданной строки составить вашу фамилию»

textual
                            Листинг программы 
                        

                            S = "Листья": N = "Илья"
For j = 1 To Len(N)
  i = Len(S): S = Replace$(S, Mid$(N, j, 1), "", , 1, vbTextCompare)
  If i = Len(S) Then MsgBox "Нельзя": Exit Sub
Next
MsgBox "Можно"
                        