şifre ile giriş

iyi günler

Private Sub komut0_Click(Cancel As Integer)

sonuc = InputBox("Parolayı yazınız", "accesstr.net")

If sonuc = "accesstr.net" Then

DoCmd.OpenForm "form2", acNormal

Else

MsgBox "Yanlış Şifre"

End If
End Sub

bu kod ile butona şifre koymak istiyorum
ama şifre dinamik olup sürekli değişmesini istediğimden saati şifre olarak kullanmak istiyorum

yani saat 12:49 ise
şifremiz 12:49 olsun
saat 14:56 ise
şifremiz 14:56 olacak

If sonuc = "accesstr.net" Then

satırını nasıl yazmam lazım
teşekkürler

If sonuc = Time() Then
şeklinde bir deneyin ayrıca metin kutusu giriş maskesine dikkat edin saat olarak ayarlayın deneyin kolay gelsin

hızlı cevabınız için çok teşekkürler