请教高手——VBA函数求助

我的工作表格是sheet1，需要的数据在sheet“W-data-ordered”中的某一行，我需要一个函数找出第一次满足要求（q*L^2/8>0.6*Fy）的那一行的序列号，数据如下（最左边的就是序列号）：

W(kg/m) Surf(m2) Sx(cm3) Sy(cm3) Sect(cm2) D(mm) W(mm)
1 W6x9 13.4 0.695 91.1 18.2 16.8 149.2 101.6
2 W8x10 14.9 0.797 127.9 17.4 19.2 200.0 101.6
3 W10x12 17.9 0.899 178.6 18.0 21.6 250.8 101.6
4 W6x12 17.9 0.699 120.1 24.5 22.6 152.4 101.6
5 W8x13 19.3 0.800 162.4 22.4 25.8 203.2 101.6
6 W4x13 19.3 0.603 89.5 31.1 26.0 104.8 101.6
7 W12x14 20.8 1.000 244.2 19.5 27.3 301.6 101.6
8 W10x15 22.3 0.902 226.0 23.7 29.0 254.0 101.6
9 W8x15 22.3 0.806 194.0 27.8 29.2 206.4 101.6
10 W6x15 22.3 0.902 159.2 51.0 29.0 152.4 152.4
......
我的函数如下:请问循环怎么修改，还有地址的引用对吗？（函数中i+4是序列号i对应的数据的的行号，5是我需要的数据的列号）
Function Frame1(Fy, q, L)
    i = 1
    Do While (q*L^2/8)/INDIRECT(Address(i+4,5,4,,"W-data-ordered"))<=0.6*Fy
        Frame1 = i
        i = i + 1
    Loop
End Function VBA 函数 Fy, q, L和数据有什么关系？
q*L^2/8>0.6*Fy  和  (q*L^2/8)/INDIRECT(Address(i+4,5,4,,"W-data-ordered"))<=0.6*Fy
？？？

补充：VB ,  VBA