VBでネームバトルみたいなのを作ってみたいのですが、これって簡単に解析可能ですか？

Dim 雑用 As Double, 能力 As String, i As Long
For i = 1 To Len(名前.Text)
　雑用 = Asc(Mid$(名前.Text, i, 1)) + i * 900
Next i
雑用 = 雑用 / 1657987656
能力 = Str$(雑用 ^ (1 / 5.43249848776546))
能力 = Mid$(能力, Len(能力) - 8, 3)

理想は2ちゃんねるのトリップや円周率みたいに求め方がわかっていても
なかなか全て解析できないというものなのですが、全くいいアイデアが思いつきません。
とりあえず循環小数じゃない無理数で行ってみようと思っているのですが…