Написать программу, проверяющую можно ли из букв составить данное слово - VB

Sub Test()
Dim sArray
M = InputBox("M:")
N = InputBox("N:")
ReDim sArray(1 To M, 1 To N)
sWord = InputBox("Введите слово:")
sTmp = LCase(sWord)
For i = 1 To M
    For j = 1 To N
        sArray(i, j) = Chr(Int(Rnd * 32 + 224))
        sStr = sStr & sArray(i, j) & " "
        For k = 1 To Len(sTmp)
            If sArray(i, j) = Mid(sTmp, k, 1) Then Mid(sTmp, k, 1) = " "
        Next
    Next
    sStr = sStr & vbNewLine
Next
sStr1 = IIf(Len(Trim(sTmp)) = 0, "Можно!", "Нельзя!")
MsgBox sStr & vbNewLine & sWord & vbNewLine & sStr1
End Sub