Private Function ConvLtrToNum(ByVal LtrIn As String) As Integer
Dim TempChar As String
Dim TempNum As Integer
Dim NumArray() As Integer
TempChar = ""
TempNum = 0
LtrIn = UCase(LtrIn)
For i = 1 To Len(LtrIn)
    NumString = ""
    ' Change Ltr to Number Indicating Place in Alphabet from 01 to 26
    TempChar = Mid(LtrIn, i, 1)
    ReDim Preserve NumArray(i)
    NumArray(i) = Asc(TempChar) - 64
Next
' Our Most Significant Digits Occur to the Left
HighPower = UBound(NumArray()) - 1
' Convert the Number Array using Powers of 26
For i = 1 To UBound(NumArray())
    TempNum = TempNum + (NumArray(i) * (26 ^ HighPower))
    HighPower = HighPower - 1
Next
ConvLtrToNum = TempNum
End Function