Написание программы в VB

Sub lab10_2()
Dim xn As Single, xk As Single, dx As Single, a As Single, y As Single
Dim P As Single, C As Single, k As Byte, i As Byte
xn = Cells(1, 2)
xk = Cells(2, 2)
dx = Cells(3, 2)
a = Cells(4, 2)
x = xn
k = 0
C = 0
P = 1
Cells(1, 4) = "x"
Cells(1, 5) = "y"
i = 2
Do While x <= xk
If 1 + x <> -1 Then
y = Sin(x) * Sin(x) / (1 + x) + a ^ (-1)
Else
Cells(i, 4) = x: Cells(i, 5) = "Деление 0"
End If
Cells(i, 4) = x
Cells(i, 5) = y
If y < a Then
P = P * y
Else
k = k + 1
C = C + y
End If
x = x + dx
i = i + 1
Loop
Cells(1, 6) = "k=": Cells(1, 7) = k
Cells(2, 6) = "C=": Cells(2, 7) = C
Cells(3, 6) = "P=": Cells(3, 7) = P
End Sub

If 1 + x <> -1 Then

If (1 + x) + a ^ (-1) > 0 Then

Function f(M() as integer) As () Boolean
Dim Res() As integer
      n%=Ubound(M,1)
      m%=Ubound(M,2)
      Redim Res(1 to m%) as Boolean
      for j%=1 to m%
           s%=0
           for i%=1 to n%
                if M(i%,j%)<>0 then 
                   s%=-1
                   Exit for
                end if
           Next i%
           Res(i%)=(s%=0)
      Next j%
      f=Res          
End Function