'Gematria_Calculator.vbs
'by Rogi Ocnorb
Dim ip, pos, op, WL, L
Msg="Enter a Name or other text string." & Chr(13) & Chr(10)
Msg=Msg & "Spaces and other characters are allowed."
ip = UCase(inputbox (Msg, "Gematria Calculator"))
pos = 1
op = 0
WL = Len(ip)
Do Until pos - 1 = WL
L = Mid(ip, pos, 1)
Select Case L
Case "A"
    op = op + 1
Case "B"
    op = op + 2
Case "C"
    op = op + 3
Case "D"
    op = op + 4
Case "E"
    op = op + 5
Case "F"
    op = op + 6
Case "G"
    op = op + 7
Case "H"
    op = op + 8
Case "I"
    op = op + 9
Case "J"
    op = op + 600
Case "K"
    op = op + 10
Case "L"
    op = op + 20
Case "M"
    op = op + 3
Case "N"
    op = op + 40
Case "O"
    op = op + 50
Case "P"
    op = op + 60
Case "Q"
    op = op + 70
Case "R"
    op = op + 80
Case "S"
    op = op + 90
Case "T"
    op = op + 100
Case "U"
    op = op + 200
Case "V"
    op = op + 700
Case "W"
    op = op + 900
Case "X"
    op = op + 300
Case "Y"
    op = op + 400
Case "Z"
    op = op + 500
Case Else
    op = op + 0
End Select
    pos = pos + 1
Loop
MsgBox (op)