key press event not working for "ENTER"

[alcorjr]

I guys I'm trying to have this little script run from ENTER, and it's not doing it. Any ideas?

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  TextBox1.EnterKeyBehavior = True

If KeyAscii = 13 Then
pwd = Me.TextBox1.Text
If Me.TextBox1.Text <> "" Then
If pwd = "matri" Or pwd = "leogr" Or pwd = "kgbkgb27" Then
Me.TextBox1.Text = Empty

Exit Sub
Else:
If Me.TextBox1.Text <> "" Then
    Dim msg9 As String
msg9 = "El password no es correcto"
CreateObject("WScript.Shell").Popup msg9, vbSystemnomode
Me.TextBox1.Text = Empty
pwd = Empty
End If
End If
End If
End If
End Sub

Thanks

 

[KniteMare]

alcorjr;



I read your post on the KeyPress Issue with interest.

I follow all the code except:::

What does

vbSystemnomode

do in your code
and why not just use

MsgBox msg9

instead of CreateObject("WScript.Shell").Popup msg9?

Yours in EXECLent Frustration

KniteMare

 

[alcorjr]

To be honest with you, that script was given to me by someone on the forum some time ago, when I asked for a message box that would appear on top of anything that was on the screen. I've just copied it from previous projects. Haven't analyzed it.
I'm not even sure what the vbsystemnomode does. I've used Vbmodeless with the userforms, but the strange part is that I don't get a syntax error flag on it.

So, if you find some more info on it please lemme know.

Cheers