vs2010（vb程序）读Excel表的问题

Question

Microsoft Visual Studio 2010中（一定要是vb程序），有一个button1，和一个textbox1。外部Excel文件为123..xlsx。
我想点button时，textbox1就读取123..xlsx中的A2单元格内容。
怎么实现，最好上附个实例给我，谢谢啦

Answer 1

代码
sub button1_click()
dim EX
dim WB
dim Sht
set ex=.CreateObject("Excel.Application")
set wb=ex.workbooks.open "123.xlsx"
set sht=wb.worksheets("sheet1")
for i=1 to 256
for j=1 to 65535
msgbox sht.cells(j,i) '输出第J行第I列的值
next j
next i