Как исправить ошибку "Функция возвращает значение не для всех путей выполнения"?

Function FFun(ByRef a As Double, ByRef b As Double, ByVal sig1V()()() As Double, ByVal sig3V()()() As Double, ByRef rx() As Double, ByRef ry() As Double, ByVal x1()() As Double, ByVal y1()() As Double)
 
        Dim MAXY, DB, MINY, MINX, MAXX, delta, deltaY, deltaX, G As Double
        Dim delta1 = 1000
        Dim q = 10
        Dim k, c, i As Integer
 
        For i = 1 To ChisloObraz
            MAXY = Math.Abs(sig3V(i)(1)(1)) : MINY = Math.Abs(sig3V(i)(1)(1))
 
            For k = 1 To ChisloTochek(i)(1)
                If sig1V(i)(1)(k) < MINX Then MINX = sig1V(i)(1)(k)
                If sig1V(i)(1)(k) > MAXX Then MAXX = sig1V(i)(1)(k)
 
                If Math.Abs(sig3V(i)(1)(k)) > MAXY Then MAXY = Math.Abs(sig3V(i)(1)(k))
                If sig3V(i)(1)(k) < MINY Then MINY = sig3V(i)(1)(k)
            Next
 
            rx(i) = (MAXX + MINX) / 2 : ry(i) = (MAXY - MINY) / 2
 
 
            MAXY = Math.Abs(sig3V(i)(1)(1)) : MINY = Math.Abs(sig3V(i)(1)(1))
 
            c = 1
            DB = Math.Sqrt(((sig1V(i)(1)(c) - rx(i)) ^ (2)) + ((sig3V(i)(1)(c) - ry(i)) ^ (2)))
            DB = Math.Abs(DB)
 
 
1:          deltaY = (delta / DB) * (sig3V(i)(1)(k) - ry(i))
            deltaX = (delta / DB) * (sig1V(i)(1)(k) - rx(i))
            Do
                x1(i)(c) = rx(i) + deltaX
 
                y1(i)(c) = ry(i) + deltaY
 
                G = (((x1(i)(c) - rx(i)) ^ (2)) / (a ^ (2))) + (((y1(i)(c) - ry(i)) ^ (2)) / (b ^ (2))) - 1
                i = i + 1
            Loop While (G < 0)
 
            If (delta >= delta1) Then
                delta = delta / 3
                GoTo 1
            Else : x1(i)(c) = 1 / 2 * (x1(i)(c) + x1(i)(c - 1)) : y1(i)(1) = 1 / 2 * (y1(i)(1) + y1(i)(c - 1))
            End If
            c = c + 1
        Next
    End Function