Private Function TossACoin() As Integer
  ' Przeznaczenie: symulacja rzutu monetą. Funkcja zwraca wartość 1
  '      w przypadku wyrzucenia orła oraz wartość 0 w przypadku wyrzucenia 
  '      reszki.
  '
  ' Parametry
  '
  ' Zwracana wartość
  '  integer    1 w przypadku orła, 0 w przypadku reszki
  '
  TossACoin = Int(2 * Rnd())
End Function
