Tips dan Trik InputBox/MsgBox

Mendeteksi Tombol Cancel/Close InputBox

    st = InputBox("Mendeteksi Tombol Cancel Atau Close")
    If StrPtr(st) = 0 Then
        MsgBox "Anda menekan tombol cancel/close"
    End If

Login dengan InputBox

a:
    st = InputBox("Masukan pass", "ADMIN")
    If StrPtr(st) = 0 Then
        End
    End If
    If Not st = upass Then
        MsgBox "Password Salah !!!", vbCritical
        GoTo a
    End If
   
'tulis statemen di sini

MsgBox "Selamat Datang"

Membuat dialog keluar dari app dengan MsgBox

Dim pilihan As Integer

pilihan = MsgBox("Apa anda ingin keluar", vbYesNo + vbInformation, "Keluar")

    If pilihan = vbYes Then
        End
    End If
   
MsgBox "Anda tidak jadi keluar dari app, Thanks"

Menembak cewek dengan MsgBox atau membuat virus cinta sampai target mengatakan "Ya"

Dim i As Integer

Do Until i = vbYes
    i = MsgBox("Apa Kamu Mencintai Ku", vbYesNo + vbQuestion, " ILoveYou")
Loop

End

Sekian dulu. Thanks