Input Box

Sub test()

jumlah = InputBox("Masukkan nilai yang anda peroleh ?", "Perolehan Nilai")

If jumlah = "" Or Val(jumlah) < 1 Then

MsgBox "Tolong masukkan nilai selain nol"
Else
MsgBox "Anda termasuk kategori LULUS"

End If

End Sub

-------------------------------------
Sub test()

pass = InputBox("Masukkan password anda ?", "Password")

If pass = "" Then

MsgBox "Tolong masukkan Password"
ElseIf pass = "aku" Then
MsgBox "SUKSES LOGIN"
Else
MsgBox "MAAF!! Anda tidak berhak masuk"

End If

End Sub