Pessoal venho aqui pedir mais um HELP!

Estou precisando de um código que ao encerrar um userform que seja executado um ProgressBar e em 5 segundos seja feito o Unload Me

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        Cancel = True

Código aqui

End If
End Sub