如何用VB6 查询excel 中一值，并返回值的行号和列号

   myrange = xlSheet.Range("F13：K99")
    a = xlApp.WorksheetFunction.Max(myrange)
    b = xlApp.WorksheetFunction.Min(myrange)
    If Abs(a) > Abs(b) Then
           Maxe1 = a
      Else
           Maxe1 = b
    End If
   
    s = xlSheet.Range("F3:K99").Find(Maxe1).Row
    y = xlSheet.Range("F3:K99").Find(Maxe1).Column