Script- To display dialogbox and close it during runtime

x= "sai"
y= "SAI"
Set objShell=Createobject("Wscript.shell")
If strcomp(x,y,1)=0 Then
    'msgbox "Both are equal"
    objShell.Popup"Both are equal",5,"Qtp DialogBox"
    else
'msgbox "Both are not equal"


    objShell.Popup"Both are not equal",5,"Qtp DialogBox"
End If

OUTPUT----------------------------------------------------------------------------------