Ввести результат работы алгоритма Рабина-Карпа

Module Module1
    Sub Main()
        Dim s1, s2 As String
        Console.WriteLine("введите строку")
        s1 = "qwertyqwerty"
        Console.WriteLine("введите строку")
        s2 = "qwerty"
        Dim longest As UInteger = Len(s2)
        Console.ReadLine()
    End Sub
    'функция составляющая массив хэш-кодов
    Public Function createHashTable(ByVal s1 As String, LONGEST As Integer) As UInteger()
 
        Dim maslen As UInteger = Len(s1) - LONGEST
        Dim arrhash(maslen) As UInteger
        Dim i, inthash As Integer
        For i = 0 To LONGEST
            inthash += Asc(GetChar(s1, i))
        Next
        arrhash(0) = inthash
        For inti = 1 To maslen + 1
            arrhash(i) = arrhash(inti - 1) - Asc(GetChar(s1, inti)) + Asc(GetChar(s1, inti + LONGEST))
        Next
        Return arrhash
    End Function
    '
    Public Function Find(ByVal arrhash() As UInteger, ByVal strcatch As String) As UInteger
        Dim i, inthash As UInteger
        For i = 1 To Len(strcatch)
            inthash += Asc(GetChar(strcatch, i))
        Next
        For i = 0 To UBound(arrhash)
            If arrhash(i) = inthash Then
                Return i
            End If
        Next
        Return Nothing
 
    End Function
End Module

Console.WriteLine("введите строку")

Console.WriteLine(Find(...))