Recursion, multiple base cases in VBA 1

Function SubSum(source(), n As Integer, sum)

    If sum = 0 Then
        SubSum = True
        GoTo RecurJump
    End If
    If (n = 0 And sum <> 0) Then
        SubSum = False
        GoTo RecurJump
    End If

    If source(n - 1) > sum Then
        SubSum = SubSum(source, n - 1, sum)
        GoTo RecurJump
    End If

    SubSum = (SubSum(source, n - 1, sum) Or SubSum(source, n - 1, sum - source(n - 1)))

RecurJump:
End Function