Forms VisualBasic Script

Private Sub UserForm_Activate()
    Application.OnTime Now + TimeValue("00:00:05"), "KillTheForm"
End Sub
Private Sub KillTheForm()
    Unload UserForm1
End Sub