Working script

sub main
        ocorrencia="JM12345"
        userid="JM1234"
        pwd="123456"

        xsh.Screen.send("ZIAH:" & userid & ":" & ocorrencia & ":;" & VbCr)
        resultuserid = xsh.Screen.WaitForStrings(Array("NEW PASSWORD:", "ERROR", "USER ID ALREADY EXISTS"),500)

                if resultuserid = 1 then
                    xsh.Screen.send pwd & VbCr
                    xsh.Screen.send pwd & VbCr
                    xsh.Screen.WaitForString "<"

                elseif resultuserid = 2 then
                    xsh.screen.Send VbCr
                    xsh.Screen.send("ZIAR:" & ocorrencia & ";" & VbCr)
                    xsh.Screen.send("Y" & VbCr)
                    defeitouser = xsh.Dialog.MessageBox  ("Defeito! Reveja caracteres no nome do USUÁRIO.", "Defeito!!!", 0)
                    xsh.Screen.send("ZIAI:PROFILE=ALL:LIM;" & VbCr)
                    exit sub

                elseif resultuserid = 3 then
                    defeitouser2 = xsh.Dialog.MessageBox  ("Defeito! USUÁRIO já existe! Tente de novo...", "Defeito!!!", 0)
                    xsh.Screen.send("ZIAR:" & ocorrencia & ";" & VbCr)
                    xsh.Screen.send("Y" & VbCr)
                    xsh.Screen.send("ZIAI:PROFILE=ALL:LIM;" & VbCr)
                    exit sub
                else
                    xsh.Dialog.MsgBox("Defeito. resultuserid <> 1, 2, 3 ")
                end if
end sub