图一对应的是excel中横着的f1值，竖着对应的f2值不确定，但是是一个固定的textbox里的数值，是通过计算得到的，单击一个button按钮要得到表中的具体数值，怎样写代码？（得到数值后还要进行大小比较，这个先不用麻烦了，我自己应该能写出来）麻烦各位有时间帮我看一下~谢谢！

vb6.0还是vb.net?

VB6 & VBS
Set oexcel=CreateObject("excel.application")
Set obook=oexcel.Workbooks.Open("D:1.xlsm")
Set osheet=obook.Sheets("sheet1")
oexcel.visible = False
'显示第一个工作表A1单元格数据
Dim ZS '●总数
ZS=42
Dim IPaddress(500) '地址
Dim i
'循环赋值变量
For i = 1 to ZS
IPaddress(i)= osheet.cells(i,1)
Next
'关闭Excel
Set obook=Nothing
Set osheet=Nothing
oexcel.Quit
Msgbox "Read Finished"

VB.net
Imports Microsoft.Office.Interop
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ExcelApp As Excel.Application '定义Excel的Application
Dim wkBook As Excel.Workbook '定义Excel的Application
Dim wkSheet As Excel.Worksheet
On Error Resume Next
Excelapp = GetObject(, "Excel.application") '"Excel.application"
wkBook = ExcelApp.ActiveWorkbook '"workbooks"
wkSheet = wkBook.ActiveSheet
If ExcelApp.Workbooks.Count = 0 Then '注：如果新建未保存的工作簿不算打开
MsgBox("没有工作簿打开")
'Exit Sub
ExcelApp = CreateObject("Excel.application")
wkBook = ExcelApp.Workbooks.Add
wkSheet = wkBook.Worksheets.Add
ExcelApp.Visible = True
End If
With wkSheet
For i = 1 To 10
For j = 1 To 10
.Cells(i, j) = i
Next j
Next i
.Range("A1").Value = "Excel 表格控制，好玩吗"
.Cells(6, 6).Value = "Excel 表格控制"
End With
'ExcelSheet.SaveAs("F:\test.xlsx")
ExcelApp.ScreenUpdating = True
wkSheet = Nothing
wkBook = Nothing
ExcelApp = Nothing
End Sub
End Class