Private Function CharStrToInt(str As String) As Integer
    Dim chars As String = "abcdefghijklmnopqrstuvwxyz"
 
    Dim l As Integer = str.Length
 
    Dim val As Integer = 0
 
    For i As Integer = 0 To l - 1
        val *= 26
        val += chars.IndexOf(str(i))
    Next
 
    Return val + 1
End Function