Abra um novo projeto, cole o que estiver em vermelho/negrito.
insira um text1 e um timer1 com propriedade Interval=1000
rode o programa, veja se é isso que voce quer.
Public Function iRandomInteger(viLowerBound As Integer, viUpperBound As Integer)
iRandomInteger = Int(Rnd * (viUpperBound - viLowerBound + 1)) + viLowerBound
End Function
Private Sub Timer1_Timer()
Text1 = iRandomInteger(1, 500)
End Sub
