Problemer med Excel fra VB

Public Function aaben() As Integer
Dim xl As Excel.Application
Dim xlRapBook As Workbook
Dim vaPrintSheet As Variant
Dim SqlStatus As Boolean
Dim i As Integer
Dim j As Integer
Dim Res As Boolean
Dim ReportName As String
Dim strPipiaPath As String

On Error GoTo err
Set xl = CreateObject("Excel.Application")
xl.Caption = "Test"
xl.IgnoreRemoteRequests = True
xl.Visible = False
xl.AskToUpdateLinks = False
xl.Workbooks.Open "C:\MinFil.xls", False, False
xl.Visible = True
Set xlRapBook = xl.Workbooks(1)
Res = xl.Application.Run("ProcedureInAddIn", Parameter1, Parameter2)

Når jeg køre denne kode, fejler den ved at programmet lukkes ned, og excel bliver hængende

men hvis jeg udkommenter de 2 første variabler - virker det fint
'Dim xl As Excel.Application
'Dim xlRapBook As Workbook
(Jeg skal ha´ alle variabler erklaret)
Hørte noget om at man kune loade det dynamisk ??

Compilos