Создать проект, который проверяет можно ли из слова M составить слово N - VB

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

На информатике дали такое задание: написать программу, которая проверяет, можно ли из слова M составить слово N. Я попробовал написать, но что-то не так, вот:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim ishodnoe, poluch, y, m, b, v As String
Dim i, a As Integer
 
ishodnoe = InputBox("Можно ли из этого слова", "")
poluch = InputBox("Составить это?", "")
a = Len(ishodnoe)
For i = 1 To a
y = Mid(ishodnoe, i, 1)
m = Mid(poluch, i, 1)
If y = m Then
Text1 = Text1 + m
Else
Text2 = Text2 + m
End If
Next i
For i = 1 To a
b = Mid(Text2, i, 1)
v = Mid(Text1, i, 1)
If y = b Or y = v Then
Text3 = Text3 + b + v
Else
Text3 = Text3 + b + v
End If
Next i
End Sub

Помогите пожалуйста написать так, чтоб все работало

Решение задачи: «Создать проект, который проверяет можно ли из слова M составить слово N»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Function ChkWords(Wi As String, Wr As String) As Boolean
      ChkWords = True
      For i% = 1 To Len(Wr)
          s$ = Mid$(Wr, i%, 1)
          If InStr(UCase$(Wi), UCase$(s$)) = 0 Then
             ChkWords = False
             Exit Function
          End If
       Next i%
End Function
 
Sub Test()
    W1$ = "пробка"
    'W2$ = "коробка"     ' вывод "можно"
    W2$ = "корова"       ' вывод "нельзя"
    If ChkWords(W1$, W2$) Then
       Debug.Print "Можно"
    Else
       Debug.Print "Нельзя"
    End If
End Sub