transform vb6 to c++ 2008, anyone can do it?

[datijn123]

hi all, I am using a validate code for my projects, and now I need it for c++.
I dont know how to do it so plz someone?

Dim key As String
Dim Exists As String
Dim KeyName As String
Dim KeyPath As String

KeyName = "registry_data"
KeyPath = "Myapp\sofwarev1\mapkey"

key = regQuery_A_Key(HKEY_LOCAL_MACHINE, KeyPath, KeyName)

If key = "" Then
GoTo Error
Else
Exists = Inet1.OpenURL("http://mydomain.com/" & key & ".txt")
If InStr(1, Exists, "hoster") Then
GoTo Error
Else
MsgBox "You´re In our Database!", vbOK, "Acces"
End If
End If
Exit Sub

Error:
MsgBox "Could not find you in database-  Now closing", vbCritical, "WRH4X Database"
Form1.Enabled = False
End

I´m using this module: (Check attachment!)


THnx In advance, you guys rock!