Pessoal estou fazendo uma aplicação em vba usando excel como bando de dados. E na minha tela de inicial gostaria que um label q eu criei exibisse a hora e escrevesse uma saudação. Criei um código mas ele infelizmente fica estático exibindo apenas a hora em que a aplicação foi aberta. Alguém me da uma mão pra ele ficar dinâmico e atualizar a label a cada segundo com a hora nova? Segue o código abaixo.
Private Sub UserForm_Activate()
Dim vSaudacaoHora As Integer
vSaudacaoHora = Hour(Now) + TimeValue("00:00:01")
Select Case vSaudacaoHora
Case 1 To 5
labelsaudacao.Caption = "Olá, agora são " & Time & " horas, tenha uma boa madrugada!" ' retorno no Label
Case 6 To 11
labelsaudacao.Caption = "Olá, agora são " & Time & " horas, tenha um bom dia!"
Case 12 To 17
labelsaudacao.Caption = "Olá, agora são " & Time & " horas, tenha uma boa tarde!"
Case 18 To 24
labelsaudacao.Caption = "Olá, agora " & Time & " horas, tenha uma boa noite!"
End Select
End Sub