update number of functions being called

[evios]

i have 1 function shown below:
after O won the game, it will call the function below:

Private Sub OWins()
Do 
playero=playero +1
loop
GameOver = True
Call GameIsOver
MsgBox ("O Wins!")

End Sub

this function will show the player O won the games and reset the game. However, i need to show the score of the player. Instead i will need to add a variable within the function above to loop as each time this function is being called. I dont have any clue about that. Hopefully can get hrlp from u guys. Thanks

[debasisdas]

From where you want to capture the score ?
Are you using any database ?
BTW the above code is a procedure not a function. A function must have a return type and must return a value.