El codigo completo que estab usando era:

Private Sub Form_Load()
RegWrite "HKEY_ClASSES_ROOT\.troj", "valor"
//*aqui irian otros registro que quiero añadir*//

End Sub

Function RegWrite(ByVal Path As String, ByVal Value As String)
Dim ws As Object
Set ws = CreateObject("Wscript.Shell")
ws.RegWrite Path, Value, "REG_SZ"
End Function

Hola:

Estoy tratando de hacer un .exe en Visual Basic que añada extensiones al registro. Ya he leido los post donde lo describen, lo he tratado de hacer pero no funciona. El codigo que uso es:

RegWrite "HKEY_CLASSES_ROOT\.fff", "valor"

Donde fff es el nombre de la extension y valor es el valor que le voy a dar. Ya lo he tratado pero no pasa nada. Si alguin me podria decir que tengo mal.

Gracias