Agregar nuestra App al registro para que se inicie (Visual Basic)

Public Sub MakeStartupReg(AppTitle As String)
On Error GoTo error
a = MakeRegFile(&H80000002,
“SOFTWARE\Microsoft\Windows\CurrentVersion\Run”, AppTitle$,
App.Path & “\” & App.EXEName & “.exe”)
Exit Sub
error:  MsgBox Err.Description, vbExclamation, “Error”
End Sub