Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim fso, ts, F, path, s
        fso = CreateObject("scripting.filesystemobject")
        F = fso.GetFile(Wscript.ScriptFullName)
        'текущая папка
        path = fso.GetParentFolderName(F) + "\"
        ts = fso.OpenTextFile("option.ini", 1, True)
        ' считаем строку из файла
        s = ts.ReadLine
        MsgBox(s)
        ts.Close
        ts = Nothing : fso = Nothing
        Dim oExcelApp, Doc
        oExcelApp = CreateObject("Excel.Application")
        Doc = oExcelApp.Workbooks.Open(path + "Settings_W.xlsx")
        oExcelApp.Application.Visible = False
        MsgBox(oExcelApp.Cells(2, 1).Value)
        oExcelApp.Quit
    End Sub
End Class