include time to visual basic

private sub Timer1_Timer()
pesan =MsgBox(“Terima Kasih apakah Akan Dilanjutkan?”,vbinformation+vbYesNo, ” Perhatian”)
if pesan = vbNo Then
End
Else
MsgBox (“Tunggu Dua Detik Lagi Sabar ya”)
End if
End sub