要求：每个小时大于00-小于15执行子程序A，大于15-小于30执行子程序B，大于30-小于45执行子程序C，大于45-小于60执行子程序D

Private Sub Command1_Click()
'按钮触发，或者改成Timer定时自动触发
Dim Min As Long
Min = Minute(Now)
If Min < 15 Then
ProgressA
ElseIf Min < 30 Then
ProgressB
ElseIf Min < 45 Then
ProgressC
Else
ProgressD
End If
End Sub
Private Function ProgressA()
'子程序A
'...
End Function
Private Function ProgressB()
'子程序B
'...
End Function
Private Function ProgressC()
'子程序C
'...
End Function
Private Function ProgressD()
'子程序D
'...
End Function