Private Sub Form_Load()

    Text1 = 5000

    Timer1.Interval = Text1

End Sub

Private Sub Timer1_Timer()

    MsgBox "test"

    Timer1.Interval = Text1

End Sub

از Slider واسه دادن زمان استفاده کن