Открытие файла Excel, находящегося в директории приложения - VB

Формулировка задачи:

У меня прога на ВБ 6.0. Вот часть кода:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim oExcel As Object
Set oExcel = CreateObject("Excel.Application") 'создать объект Microsoft Excel
oExcel.Workbooks.Open "C:\book2"
oExcel.Visible = True 'False
nd = Label4.Caption
tipsi = Me.Combo1.List(Me.Combo1.ListIndex) + "-" + Txt5.Text
znsi = Txt3.Text
kpsi = Txt4.Text
zavsi = Txt2.Text
oExcel.Range("B6").Value = nd
oExcel.Range("B8").Value = zavsi
oExcel.Range("E8").Value = znsi
oExcel.Range("B12").Value = kpsi
oExcel.Range("B10").Value = tipsi
oExcel.Range("C14").Value = Txt1.Text + " град, " + Txt6.Text + " мм рт. ст. " + Txt7.Text + "%"
oExcel.Range("B24").Value = vosi
oExcel.Range("B26").Value = opsi
oExcel.Range("E28").Value = Text1.Text
oExcel.Range("G28").Value = Text2.Text
oExcel.Range("B32").Value = Text3.Text
oExcel.Range("E32").Value = Text4.Text
oExcel.Range("C58").Value = Pov1
oExcel.Range("F58").Value = Pov2
End Sub

Вопрос. как мне сделать чтоб екселевский файл открывался в папке программы? ЗА РАНЕЕ БЛАГОДАРЮ!

Решение задачи: «Открытие файла Excel, находящегося в директории приложения»

textual
                            Листинг программы 
                        
oExcel.Workbooks.Open App.Path & "\имя_файла.xls"