Excel - asociar un textbox en excel con visual .net

Private Sub btnExcelConnection_Click(sender As Object, e As EventArgs) Handles btnExcelConnection.Click

        Dim objXLS As New Microsoft.Office.Interop.Excel.Application

        With objXLS

            '.Visible = True

            Dim sPath, sFile As String

            'Vars

            sFile = "ExcelData.xlsm"

            sPath = "TuRutaArchivo\"

            sPath = sPath & sFile

            'Excel customizing

            objXLS.Visible = True

            objXLS.Workbooks.Open(sPath)

            objXLS.Workbooks(sFile).Activate()

            objXLS.Workbooks(sFile).Sheets("Data").txtData.Text = "Tus Datos !"

        End With

    End Sub