title: Generate random number VBA
body: <p>I am trying to generate a random number and display it using a label. This is my code:</p>
  
  <pre><code>    Dim Random As Integer
  Random = Int((3 * Rnd) + 1)
  Label108.Caption = Random
  </code></pre>
  
  <p>Why is my label not changing to a random number between 1 &amp; 3</p>
  
  <p>UPDATED AS PER QUESTION IN COMMENTS</p>
  
  <pre><code>Private Sub Form_Load()
      Dim Random As Integer
  Random = Int((3 * Rnd) + 1)
  Label108.Caption = Random
  
  Label8.Caption = Format(Date, "dddd dd mmmm yyyy")
  Label14.Caption = Environ("username")
  </code></pre>