Function crypto(ByVal str) As String
        Dim x As String, i As String = ""
        Dim key As String = "the quick brown fox jumps over the lazy dog"
        For Each x In TextBox1.Text.ToLower
            i &= (key.IndexOf(x) + 10)
        Next
        Return i
    End Function