gypl1 = mm(0, 1)
 For i = 0 To UBound(mm)
  If mm(0, i) - Text4.Text < 0 And mm(0, i + 1) - Text4.Text > 0 Then
    gypl1 = mm(0, i)
    gypl2 = mm(0, i + 1)
  End If
 Next
代码就是这样的。

mm(0,i+1)还不越界？你的最大下标都只是i了

那怎么改呢？

你这点代码恕我愚笨，看不出你的思路。
能描述一下你的思路吗