Se cae Macro en Outlook (VB) para abrir xls

Estimados: Les escribo pues estoy seguro que me pueden guiar. Estoy escribiendo una macro en outlook (VB) ya que lo que busco es que cada mañana cuando abra outllok la macro me pregunte (por me medio de un formulario con dos opciones) si deseo abrir un archivo (xls / xlsx). Pero la macro se me cae. Mi código es:
a) En el formulario
Option Explicit
Private Sub CommandButton1_Click()
Unload Me
abreboletas
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
b) En el Modulo
Sub abreboletas()
Dim strFilename As String
Dim xlApp As Excel.Application
Dim xlLibro As Excel.Workbook
'abrir programa Excel
Set xlApp = New Excel.Application
'xl.Visible = True
'abrir el archivo Excel
'(archivo en otra carpeta)
Set xlLibro = xlApp.Workbooks.Open("C:\Users\pbeas\Desktop\REA\1.xls")
Workbooks("1.xls").Activate
Worksheets("Hoja1").Range("A1").Select
End Sub
Donde se me cae es en:
Set xlLibro = xlApp.Workbooks.Open("C:\Users\pbeas\Desktop\REA\1.xls")
Bueno. Desde ya muchas gracias por la ayuda y el tiempo...