Do you know how many combinations to select n numbers from 1 to m with sum of which is mysum?

Do you know how many combinations to select  n  numbers from  1 to m with sum of which is sum?

Sub getit()
Dim m&, n&, mysum&, i&, j&, k&, count()
m = 100: n = 30: mysum = 700
ReDim count(m, n, -mysum To mysum)
For i = 1 To m
If i <= n Then count(i, i, i * (i + 1) / 2) = 1
For k = 1 To mysum
If k <= i Then count(i, 1, k) = 1
If i > 1 Then
For j = 2 To n
count(i, j, k) = count(i - 1, j, k) + count(i - 1, j - 1, k - i)
Next
End If
Next
Next
Debug.Print "There are " & count(m, n, mysum) & " combinations to select " & n & " numbers from  1 to " & m & " with sum of which is " & mysum
End Sub

It returns:

There are 21690729953398 combinations to select 30 numbers from  1 to 100 with sum of which is 700