Найти максимальное число из кубов последовательности - VB

Option Explicit
Dim Y As Single
Dim i As Single, m As Single, pi As Single
Dim k As Integer
 
Function f(X As Single) As Single
If X - 2 <> 0 Or X - 2 <> pi / 2 Then
f = Exp(X - 2) / Tan(X - 2)
End If
End Function
 
Private Sub Command1_Click()
 pi = 4 * Atn(1)
m = 4 * pi
 
Picture1.Scale (-m, -m)-(m, m)
Picture1.Line (-m, 0)-(m, 0), vbRed
Picture1.Line (0, -m)-(0, m), vbRed
 
For i = -m To m Step 0.001
On Error Resume Next
Y = f(i)
Picture1.PSet (i, -Y)
Next i
 
For i = -Int(m) To Int(m)
On Error Resume Next
Y = f(i)
Picture2.Print "    "; i ; Tab(20); Y
Next i
 
End Sub