Private Sub Command0_Click()
Dim strEvent As String
strEvent = InputBox("ระบุค่า", "รหัสผ่าน!!!!")
If StrPtr(strEvent) = 0 Then 'เช็คกรณีกด Cancel
MsgBox "มีการกด Cancel นะ"
Exit Sub
ElseIf strEvent = vbNullString Then 'ใช้เช็คกรณีไม่ได้ระบุข้อมูลแล้วกด OK
MsgBox ("คุณไม่ได้ระบุค่า!")
End If
End Sub
ใช้ StrPtr() ในการตรวจสอบการกด Cancel ครับ