Проверить, можно ли составить строку, используя символы другой строки

Private Function Wruik(ByVal srcStr As String, ByVal dstStr As String) As Boolean
        Dim LenStr As Integer
        Wruik = srcStr.Length >= dstStr.Length
        For i As Integer = 1 To dstStr.Length
            If Not Wruik Then Exit Function
            LenStr = srcStr.Length
            srcStr = Replace(srcStr, Mid(dstStr, i, 1), "", 1, 1)
            Wruik = srcStr.Length <> LenStr
        Next
    End Function

    Private Function Wruik(ByVal srcStr As String, ByVal dstStr As String) As Boolean
        Wruik = True
        For i As Integer = 1 To dstStr.Length
            Wruik = InStr(srcStr, Mid(dstStr, i, 1)) > 0
            If Not Wruik Then Exit For
        Next
    End Function

 Sub Main()
        Dim strS1 As String = "САМОЛЕТ"
        Dim strS2 As String = "САЛО"
        Dim blnRes As Boolean
 
        MayBe(strS1, strS2, blnRes)
        If blnRes Then
            MsgBox("True")
        Else
            MsgBox("False")
        End If
 
    End Sub
 
    Public Function MayBe(ByVal strWord As String, ByVal strText As String, ByRef blnRes As Boolean)
        Dim intC1, intC2 As Integer
        Dim blnFound As Boolean
       
        For intC1 = 1 To Len(strWord)
            Dim chrC As Char = GetChar(strWord, intC1)
            blnFound = False
            For intC2 = 1 To Len(strText)
                If GetChar(strText, intC2) = chrC Then
                    blnFound = True
                    strWord = Left(strWord, intC2 - 1) & Right(strWord, Len(strWord) - intC2)
                    Exit For
                End If
            Next
            If blnFound = False Then Return blnRes = blnFound
        Next
        Return blnRes = True
    End Function
End Module

Module Module1
 
    Sub Main()
        Dim strS1 As String = "САМОЛЕТ"
        Dim strS2 As String = "САЛО"
 
        MsgBox(MayBe(strS1, strS2).ToString)
 
 
    End Sub
 
    Public Function MayBe(ByVal strWord As String, ByVal strText As String) as boolean
        Dim intC1, intC2 As Integer
        Dim blnFound As Boolean
 
        For intC1 = 1 To Len(strText)
            Dim chrC As Char = GetChar(strText, intC1)
            blnFound = False
            For intC2 = 1 To Len(strWord)
                If GetChar(strWord, intC2) = chrC Then
                    blnFound = True
                    strWord = Left(strWord, intC2 - 1) & Right(strWord, Len(strWord) - intC2)
                    Exit For
                End If
            Next
            If blnFound = False Then Return False
        Next
        Return True
    End Function
 
 
 
End Module