Script files to exit properly

I have a script that I run from the Window task scheduler. It work fine most of the time. I'm sure I'm doing something wrong. I need to insure the script exits Accuterm and terminates properly.

When it fails it leaves the Accuterm 7.1 Application (32 bit) process running in an infinite loop eating up about 10% of the CPU.

I'm not sure if I need to close the session or terminate the session. Any suggestions would be helpful.

Below is the script I'm running.

'AccuTerm/Windows Sample Logon Script

Sub Main()

 Dim s As Session
 Dim Cfg As String
 Dim User As String
 Dim Pswd As String
  
 Cfg = "C:\Users\Administrator\Documents\localhost.atcf"
 User = "IMPORT.CLEAR"
 Pswd = ""

 Set s = Sessions.Add(Cfg,0,1) 'same as File Open

 s.Output Chr$(13) 'send initial CR
 If s.WaitFor(1, 15, "ease :") = 1 Then
  s.Output User & Chr$(13) 'send User-Id
  s.InputMode = 0 'resume normal input processing
  Exit Sub 'terminate login script
 End If

 MsgBox "Logon failure!", 0, "AccuTerm"

End Sub