Вычислить значение выражения, используя рекурсию

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, i As Integer
        a = 6 : i = a
        Do Until Mash(a, i) = Mash(a, i + 1)
            i += 1
        Loop
        MsgBox(Mash(a, i).ToString )
    End Sub
 
    Private Function Mash(ByVal a As Integer, ByVal RecDep As Integer) As Double
        If a < RecDep Then
            Mash = Math.Sqrt(a + (a - 4) * Mash(a + 1, RecDep))
        End If
    End Function
 
End Class