Label com saudação e hora atualizado a cada segundo

[MosconiDih]

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