Allow To Users To Enter A Cell In The Worksheet

Function Dice(DiOne, DiTwo) As Double
Dim sum As Integer
Dim DiOne, DiTwo As Integer
Dim Odds As Double
DiSum = DiOne + DiTwo

Select Case sum
Case Is = 2
Odds = 1 / 36
Case Is = 3
Odds = 1 / 36
Case Is = 4
Odds = 2 / 36
Case Is = 5
Odds = 2 / 36
Case Is = 6
Odds = 3 / 36
Case Is = 7
Odds = 2 / 36
Case Is = 8
Odds = 3 / 36
Case Is = 9
Odds = 2 / 36
Case Is = 10
Odds = 2 / 36
Case Is = 11
Odds = 1 / 36
Case Else
Odds = 1 / 36
End Select

Dice = Odds

End Function

I'm trying to allow users to enter a cell in the worksheet and type =dice(number, number) and it calculate the probability of that amount coming from two rolls of a dice...

I'd like people to be able to use this just as though it was the SUM or VLOOKUP functions....