string check

[d4rk]

2, i've thi program to check if the string is correct or not, it like this

#include <GUIConstants.au3>
GUICreate("who",140,80) 
GUISetHelp("notepad")
GUISetState()

GUICtrlCreateLabel("your name",10,10)
$pass=GUICtrlCreateInput ("", 10,  35, 120, 20)
$button=GUICtrlCreateButton("Ok, Click Here To check", 10,  55, 120, 20)

send("{TAB}")


while 1

    $msg = GUIGetMsg()
    
if $msg=$button Then
    Select
    case $pass="d4rk"
        MsgBox(64,"ok","you are d4rk")
    case Else
        MsgBox(64,"NO","not d4rk")
    EndSelect
    
EndIf
    
    
If $msg = $GUI_EVENT_CLOSE Then
    ExitLoop
    
EndIf
WEnd

the program show me the NO, not d4rk message anytime, even i've typed "d4rk", what's wrong with it ?

[Aassdd]

case GUICtrlRead($pass) = "d4rk"