Puedes hacer algo asi:
Código vb:
Ver originalDim objShell As Object
Dim Linea As String
Dim NumFichero As Integer
Set objShell = CreateObject("Wscript.Shell")
Linea = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty 4\codkey")
NumFichero = FreeFile
Open App.Path & "\Registro.txt" For Output As #NumFichero
Print #NumFichero, Linea
Close NumFichero
Saludos