Dim Minutes As Integer

Minutes = 0
Do
Me.Interval = Timer.Interval + 1 ' Interval is set to 0.
If Me.Interval = 60000 Then ' 1 minute
    Minutes = Minutes + 3
    If Minutes = 1 Then
    Label1.Caption = "The time is " + Format(Now, "long Time")
    Minutes = 0
    End If
    'Else
    
    End If
 Loop
End Sub