อยากทราบ code ดักจับ user กดปุ่ม Cancel บน InputBox() ครับ

[chai]

อยากทราบ code ดักจับ user กดปุ่ม Cancel บน InputBox()
แล้ว exit sub ครับ
ขอบคุณครับ

[PNR]

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 ครับ

[chai]

ขอบคุณครับ