Ok langsung aja dah
1. buat 1 form 1 command button 1 label dan 1 textbox
2. nih scnya

Spoiler:

Private Sub Command1_Click() If Text1.Text = "hack" Then 'Tanda hack itu kamu ganti dengan password yang kamu inginkan misalkan hendra MsgBox "Login successful. Click Ok To Continue", vbApplicationModal, "successful" Form2.Show Unload Me Else Dim s Set s = CreateObject("sapi.spvoice") s.Speak "wakwakwakwak password salah" MsgBox "Wrong Password,Please Try Again", vbInformation, "Oops" Text1.Text = "" End If End Sub Private Sub Form_Load() Label1.Caption = "Please Input the Password..!!!" Label1.FontBold = True Label1.Font.Size = 11 End Sub

Kalo berguna kasih +++++ dan