I Have done it
this is the code
Dim strInput As String
Dim strMsg As String
Beep
strMsg = "Do You Want to Change the data?" & vbCrLf & vbLf & "Then Entre The Password"
strInput = InputBox(Prompt:=strMsg, title:="data change")
If strInput = "0000" Then
Me.Check35 = False
Beep
MsgBox "Changing...