Dim a As Integer, b As Integer
a = 5: b = 3
Print work(a, b)
If (x < y) Then
work = 0
Exit Function
End If
If (y = 0) Then
work = 1
work = work(x - 1, y - 1) + work(x - 1, y)