Data Type VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Data Type
  4. 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