Function PythagValChar(Letter)
    Dim cbData, retval
    
    'If Asc(Letter) > 96 Then cbData = Chr(Asc(Letter) - 32)
    
    Select Case Ucase(Letter) 'cbData
        Case "A", "J", "S":            retval = 1
        Case "B", "K", "T":            retval = 2
        Case "C", "L", "U":            retval = 3
        Case "D", "M", "V":            retval = 4
        Case "E", "N", "W":            retval = 5
        Case "F", "O", "X":            retval = 6
        Case "G", "P", "Y":            retval = 7
        Case "H", "Q", "Z":            retval = 8
        Case "I", "R":                 retval = 9
        Case Else:                     retval = -1
    End Select
        PythagValChar = retval
End Function

Function PythagValWord(Word)
    Dim retval, i, wTemp
    Dim cbLen

    retval = 0

    cbLen = CLng(Len(Word))
    For i = 1 To cbLen
        wTemp = PythagValChar((Mid(Word, CLng(i), 1)))
        If wTemp > 0 Then retval = retval + wTemp
    Next
    PythagValWord = retval
End Function

Function CompressVal(Number)
    Dim zNum, LenNum, i, wTemp
    
    zNum = CStr(Number)
    LenNum = Len(zNum)
    Do While LenNum > 1
        wTemp = 0
        For i = 1 To LenNum
            wTemp = wTemp + CInt((Mid(zNum, CLng(i), 1)))
        Next
        zNum = CStr(wTemp)
        LenNum = Len(zNum)
    Loop
    CompressVal = CInt(zNum)
End Function

Function StringSum(zNumber)
    Dim retval, i, wTemp
    
    For i = 1 To Len(zNumber)
        wTemp = CInt((Mid(zNumber, CLng(i), 1)))
        retval = retval + wTemp
    Next
    StringSum = retval
    
End Function