VBA/Excel/Access/Word/Data Type/Single

Display in a message box the number of seconds passed since midnight.

 
Sub timerDemo()
    Dim seconds As Single
    seconds = timer
    MsgBox (seconds)
End Sub

Do Until... Loop Loops with Single value

 
  Sub Lottery_1()
      Dim sngWin As Single
      Do Until sngWin > 2000
          sngWin = Rnd * 2100
          Debug.Print sngWin, , "Lottery"
      Loop
  End Sub

Save random value to Single data type variable

 
  Sub Lottery_1()
      Dim sngWin As Single
      Do Until sngWin > 2000
          sngWin = Rnd * 2100
          Debug.Print sngWin, , "Lottery"
      Loop
  End Sub