Code:
Imports Microsoft.Office.Interop

Public Class Form1

    Dim objExcel As New Excel.Application
    Dim objWorkbook As Excel.Workbook
    Dim objWorksheet As Excel.Worksheet

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        objWorkbook = objExcel.Workbooks.Open("d:\table.xlsx")
        objWorksheet = CType(objWorkbook.Worksheets.Item("Sheet1"), Excel.Worksheet)
        TextBox1.Text = objWorksheet.Cells(1, 1).text
        TextBox2.Text = objWorksheet.Cells(2, 1).text
        TextBox3.Text = objWorksheet.Cells(3, 1).text
    End Sub

    Private Sub Command1_Click()
        objWorksheet.Cells(1, 1).Value = TextBox1.Text
        objWorksheet.Cells(2, 3).Value = TextBox2.Text
        objWorksheet.Cells(3, 3).Value = TextBox3.Text
    End Sub

    Private Sub Command2_Click()
        objExcel.Application.Quit()
    End Sub

    Private Sub Command3_Click()
        objExcel.SaveAs("d:\table.xlsx")
    End Sub
End Class