Simulating a tennis game

i'm new to vba. i've done all the prelims, but now i'm stuck.

having trouble creating a function which does the following:

1. acknowledges the current server as a parameter (which has been randomly chosen by code i've already written)

2. generates the winner of a particular point according to pre-designated statistics
(pre designated stats are:
(a) prob of first serve being in
(b) prob of winning point on first serve
(c) prob of second serve being in
(d) prob of winning point on second serve
(if first and second serve are both out then the other player wins the pt)

3. simulates a whole game of tennis (player x serving throughout the game) and returns a winner (player x or player y)

4. then simulates a whole set

5. then simulates a match (first to 3 sets)

would appreciate your help, ty.

like i said i'm very new to vba, so specific help would be greatly appreciated

i don't want to use any complicated code, just basic functions (functions, subs, ifs, loops, by, msgbox, inputbox etc.)

Also, the following code is only coming up with a msgbox saying, "the first server is " - i.e. the Name variable does not seem to save/appear?






Sub TennisSimulator()
Dim FirstServer As String
Dim playerA As String
Dim playerB As String


Randomize
DecideFirstServer = Rnd()
If DecideFirstServer < 0.5 Then
Name = Sheets("trace").Cells(6, 15).Value
MsgBox "The first server is " & Name

Else
Name = playerB = Sheets("trace").Cells(6, 16).Value
MsgBox "The first server is " & Name
End If