自启动问题

如何让我的软件开机自启动？我是说通过代码，而不是其它软件或应用操作系统的任务计划功能
有一个朋友给了下边代码：
'---------------处理注册表的函数-----------------------
Const HKEY_CURRENT_USER = &H80000001
Const REG_SZ = 1
Private Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Private Declare Function RegCreateKey& Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey&, ByVal lpszSubKey$, lphKey&)Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long____________________________________________________________
'需要执行的程序以"记事本为例"
Private Sub Command1_Click()
 Dim hKey As Long, SubKey As String, Exe As String    SubKey = "Software\Microsoft\Windows\CurrentVersion\Run"
'执行文件名若不在windows\system\或者windows\system32\或者windows\下必须用完整路径！
    Exe = "notepad"
    RegCreateKey HKEY_CURRENT_USER, SubKey, hKey
    
    RegSetValueEx hKey, "记事本", 0, REG_SZ, ByVal Exe, _
                  LenB(StrConv(Exe, vbFromUnicode)) + 1
    RegCloseKey hKey
    
    MsgBox "notepad 程序已经被设定成 Windows 启动时自动被执行的程序！"End Sub
‘========================
改代码执行的时候，当运行到RegCreateKey HKEY_CURRENT_USER, SubKey, hKey时提示：
实时错误 49 
dll调用约定错误请问该代码能否实现自启动，并且请指出上边代码错误之处