Sub GenerateRandomNumber()
' Seeding the random number generator with system time
Randomize
' Specify the range for random number generation
Dim minNumber As Integer
Dim maxNumber As Integer
minNumber = 1 ' Minimum number of the range
maxNumber = 100 ' Maximum number of the range
' Generate the random number within the specified range
Dim randomNumber As Integer
randomNumber = Int((maxNumber - minNumber + 1) * Rnd + minNumber)
' Output the generated random number
MsgBox "Random Number: " & randomNumber
End Sub