Imports Microsoft.Office.Interop

Public Class Form1
Private WithEvents xlApp As Excel.Application
Private xlBook As Excel.Workbook
Private WithEvents xlSheet1 As Excel.Worksheet

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
xlApp = CreateObject("Excel.Application")
xlBook = xlApp.Workbooks.Add()
xlApp.Worksheets(1).Activate()
xlSheet1 = xlBook.Worksheets.Item(1)
AddHandler xlSheet1.Change, New Excel.DocEvents_ChangeEventHandler(AddressOf xlSheet1_Change)
xlApp.Visible = True

End Sub
Private Sub xlSheet1_Change(ByVal Target As Excel.Range)
Invoke(Sub()
If Target.Column = 1 Then
Me.TextBox1.Text = ""
Me.TextBox1.AppendText(Target.Text)
End If

If Target.Column = 2 Then
Me.TextBox2.Text = ""
Me.TextBox2.AppendText(Target.Text)
End If

If Target.Column = 3 Then
Me.TextBox3.Text = ""
Me.TextBox3.AppendText(Target.Text)
End If
End Sub)
End Sub

End Class