Making words out of numbers

Dim a As String = "conan"
Dim b As String = "the"
Dim c As String = "barbarian"
Dim d As Long = 0
Dim f As Long = 0
Dim g As Long = 0
Dim h As Long = 0
Dim i As String = ""
Dim j As Long = 0
Dim k As Long = 100000
Dim n As Long = 100000000
Dim l As Integer = 89
Dim m As Integer = 6301
Dim o As Long = 155755927
Dim x As Integer
For x = 0 To a.Length - 1
    d = d + Asc(a.Substring(x, 1))
For x = 0 To b.Length - 1
    f = f + Asc(b.Substring(x, 1))
For x = 0 To c.Length - 1
    g = g + Asc(c.Substring(x, 1))
h = Math.Floor(((g * f) + (f * d + k)) + n * d ^ 2)
For x = 0 To h.ToString.Length - 1 Step 1
    i = String.Concat(i, h.ToString.Substring(x, 1))
i = i + ((l * m) * o)

When this code completes, the value of "i" represents a word.
What's the word?

And the answer is?

Who's beaten this one?

There are currently 90 challenges, with a maximum possible value of 354 points.

New Challenges
Unusual Translation
Hashed II
Beep Beep
JSON and the Argonauts III
JSON and the Argonauts II
JSON and the Argonauts I

Most Popular Challenges
What's that say? I
A curious escape
Computer Talk
What's that say? III
Base 8^2
I came, I saw, I encrypted
What goes there?

5 hackers solved 19 challenges this week
Pin-up Steganography by prefix
Play Fair! by suchCipher
What's that say? I by bakringle
What's that say? III by bakringle
What's that say? V by bakringle
I came, I saw, I encrypted by pronTooth
Logic Cubed by pronTooth
A different method by pronTooth
A different method by muffinx
Poking Around VI by muffinx
Poking Around III by muffinx
Mixing up the classics by muffinx
Searching for clues by muffinx
Cartoon Arithmetic by muffinx
Base 8^2 by prefix
I came, I saw, I encrypted by prefix
Logic Cubed by muffinx
Parse it fast by muffinx
Terminal Hacking by muffinx

View more stats

Member of The Internet Defense League

Care and feeding instructions