Private Sub cmdDecode_Click()
Dim glbdata As String
txtInput.LoadFile ("D:\dfseals.net\JOP\bhdts.glb")
glbdata = txtInput.Text
Call nw_raw(glbdata)
End Sub

Private Sub nw_raw(glbdata As String)
Dim constdec(7) As Integer
Dim X As Integer
Dim I As Long
Dim rConst As Integer
Dim rKey As Integer
Dim lowbase As Long
Dim multi As Long
Dim hibyte As Long
Dim lobyte As Integer
Dim Key As String
Dim hm As Long
Dim dummy As String
Dim Result As Integer

multi = &HA0C2
hibyte = &HFFFF&
lobyte = &HFF
Key = "NOVAWORLD"
rConst = 0
rKey = 0
X = 0
lowbase = 0
hm = Len(glbdata)
Do
I = I + 1
lblStatus = "Working byte " & I & " of " & hm
lblStatus.Refresh
rKey = rKey + 1
rConst = rConst + 1
If rConst > 7 Then
rConst = 1
X = X + 1
End If
If rKey > Len(Key) Then rKey = 1
lowbase = &H4B05731 And hibyte '<---this line is the solution
lowbase = lowbase * multi + 1 And hibyte
Result = Asc(Mid$(glbdata, I, 1)) - Asc(Mid$(Key, rKey, 1)) + constdec(rConst) + (X * 2) - lowbase And lobyte
multi = lowbase
If Result = 0 Then
dummy = dummy & ""
Else
dummy = dummy & Chr$(Result)
End If
Loop Until I >= hm
txtOutput = dummy
End Sub

Its for our gaming website http://dfseals.net so in the end I will be converting it to PHP but that is another battle all in of itself. I am new and trying to learn on my own lol So the answer maybe simple and right in front of me and I wouldnt know it.