Imports Aerostar.ITS
Imports Aerostar.ITS.Station

Module UUTTest
    Sub Test1() 'test ITS power switch is closed
        Form1.switchPort.Write("FW0000" + vbCrLf)
        Delay(200)
        Form1.StartTest.Enabled = False
        Form1.btnConnect.Enabled = False
        failFlag = 0
        finalFailFlag = 0

        clearTextbox()          'clear HL  MV  LL
        Form1.TestMessage.Text = ""   'clear test message
        Form1.Button1.Focus()
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()

        Form1.switchPort.Write("FW0000" & vbCrLf)   'turn power off
        Delay(400)
        Form1.switchPort.Write("BW0004" & vbCrLf)
        Delay(400)
        Form1.switchPort.Write("CW0200" & vbCrLf)
        Delay(400)
        Form1.MeasVal1.SelectAll()
        Form1.MeasVal1.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType1.Text = "Test1 SW1 closed Pos Bus = BW0004" & relayArray(1) & " " & "Neg Bus = CW0200" & relayArray(2) ' display test desription
        HighLimit(1) = 6
        LoLimit(1) = 0.1
        Form1.Lolimit1.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit1.Text = HighLimit(1)   ' Display lolimit in textbox 1

        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("VAL1?" & vbCr)  ' Rate == medium
        Delay(1000)
        answer = Form1.dmmPort.ReadExisting
        Delay(500)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "!>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        dbl_answer = parsed_answer
        Debug.Print(parsed_answer)
        fileWrite("ITS Serial #", Form1.printName, Form1.printName, Form1.printName)
        Form1.printcount = 1 'notepad file to continue with pass/fail data
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal1.SelectAll()
            Form1.MeasVal1.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 1 fails S1 open" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal1.SelectedText = dbl_answer
            fileWrite("Test 1 FAIL", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal1.SelectedText = dbl_answer
            'filename
            fileWrite("Test 1 PASS", HighLimit(1), dbl_answer, LoLimit(1))
        End If

        Delay(200)

        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test2()
        failFlag = 0
        Delay(100)
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        Form1.switchPort.Write("AW0400" & vbCrLf) 'common1
        Delay(400)
        Form1.switchPort.Write("BW2000" & vbCrLf) 'GND test for L51
        Delay(400)
        Form1.MeasVal2.SelectAll()
        Form1.MeasVal2.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType2.Text = "Test2 L51  Pos Bus = AW0400" & relayArray(1) & " " & "Neg Bus = BW2000" & relayArray(2) ' display test desription
        HighLimit(1) = 6
        LoLimit(1) = 0.1
        Form1.Lolimit2.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit2.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("VAL1?" & vbCr)  ' Rate == medium
        Delay(1000)
        answer = Form1.dmmPort.ReadExisting
        Delay(500)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        dbl_answer = parsed_answer
        Debug.Print(parsed_answer)
        fileWrite("ITS Serial #", Form1.printName, Form1.printName, Form1.printName)
        Form1.printcount = 1 'notepad file to continue with pass/fail data
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal2.SelectAll()
            Form1.MeasVal2.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 2 fails L51 Missing" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal2.SelectedText = dbl_answer

            fileWrite("Test 2 FAIL L51 Missing", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal2.SelectedText = dbl_answer
            'filename
            fileWrite("Test 2 PASS L51 Installed", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test3() 'A/D ch0 return L8
        failFlag = 0
        Form1.switchPort.Write("AW0000" & vbCrLf) 'open all c bank
        Delay(400)
        Form1.switchPort.Write("CW0000" & vbCrLf) 'open all a bank
        Delay(400)
        Form1.switchPort.Write("BW2008" & vbCrLf) 'GND test for L8
        Delay(800)
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        Form1.MeasVal3.SelectAll()
        Form1.MeasVal3.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType3.Text = "Test3 L8 Pos Bus = BW2008" & relayArray(1) & " " & "Neg Bus = BW2000" & relayArray(2) ' display test desription
        HighLimit(1) = 6
        LoLimit(1) = 0.1
        Form1.Lolimit3.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit3.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("MEAS1?" & vbCr)  ' Rate == medium
        Delay(1000)
        answer = Form1.dmmPort.ReadExisting
        Delay(100)

        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, ">", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        dbl_answer = parsed_answer
        Debug.Print(parsed_answer)
        fileWrite("ITS Serial #", Form1.printName, Form1.printName, Form1.printName)
        Form1.printcount = 1 'notepad file to continue with pass/fail data
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal3.SelectAll()
            Form1.MeasVal3.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 3 fails L8 Missing" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal3.SelectedText = dbl_answer
            fileWrite("Test 3 FAIL L8 Missing", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal3.SelectedText = dbl_answer
            fileWrite("Test 3 PASS L8 Installed", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test3A() 'A/D ch1 return L12
        failFlag = 0
        Form1.switchPort.Write("AW0000" & vbCrLf) 'open all c bank
        Delay(400)
        Form1.switchPort.Write("CW0000" & vbCrLf) 'open all a bank
        Delay(400)
        Form1.switchPort.Write("BW2010" & vbCrLf) 'GND test for L12
        Delay(800)
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        Form1.MeasVal3.SelectAll()
        Form1.MeasVal3.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType3.Text = "Test3A  L12  Pos Bus = BW2010" & relayArray(1) & " " & "Neg Bus = BW2000" & relayArray(2) ' display test desription
        HighLimit(1) = 6
        LoLimit(1) = 0.1
        Form1.Lolimit3.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit3.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("MEAS1?" & vbCr)  ' Rate == medium
        Delay(1000)
        answer = Form1.dmmPort.ReadExisting
        Delay(100)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, ">", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        dbl_answer = parsed_answer
        Debug.Print(parsed_answer)
        fileWrite("ITS Serial #", Form1.printName, Form1.printName, Form1.printName)
        Form1.printcount = 1 'notepad file to continue with pass/fail data
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal3.SelectAll()
            Form1.MeasVal3.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 3A fails L12 Missing" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal3.SelectedText = dbl_answer
            fileWrite("Test 3A FAIL L12 Missing", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal3.SelectedText = dbl_answer
            fileWrite("Test 3A PASS L12 Installed", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test3B() 'A/D ch2 return L16
        failFlag = 0
        Form1.switchPort.Write("AW0000" & vbCrLf) 'open all c bank
        Delay(400)
        Form1.switchPort.Write("CW0000" & vbCrLf) 'open all a bank
        Delay(400)
        Form1.switchPort.Write("BW2020" & vbCrLf) 'GND test for L16
        Delay(800)
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        Form1.MeasVal3.SelectAll()
        Form1.MeasVal3.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType3.Text = "Test3B L16  Pos Bus = BW2020" & relayArray(1) & " " & "Neg Bus = BW2000" & relayArray(2) ' display test desription
        HighLimit(1) = 6
        LoLimit(1) = 0.1
        Form1.Lolimit3.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit3.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("MEAS1?" & vbCr)  ' Rate == medium
        Delay(1000)
        answer = Form1.dmmPort.ReadExisting
        Delay(100)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, ">", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        dbl_answer = parsed_answer
        Debug.Print(parsed_answer)
        fileWrite("ITS Serial #", Form1.printName, Form1.printName, Form1.printName)
        Form1.printcount = 1 'notepad file to continue with pass/fail data
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal3.SelectAll()
            Form1.MeasVal3.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 3B fails L16 Missing" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal3.SelectedText = dbl_answer
            fileWrite("Test 3B FAIL L16 Missing", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal3.SelectedText = dbl_answer
            fileWrite("Test 3B PASS L16 Installed", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test3C() 'A/D ch3 return L20
        failFlag = 0
        Form1.switchPort.Write("AW0000" & vbCrLf) 'open all c bank
        Delay(400)
        Form1.switchPort.Write("CW0000" & vbCrLf) 'open all a bank
        Delay(400)
        Form1.switchPort.Write("BW2040" & vbCrLf) 'GND test for L20
        Delay(800)
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        Form1.MeasVal3.SelectAll()
        Form1.MeasVal3.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType3.Text = "Test3C L20  Pos Bus = BW2040" & relayArray(1) & " " & "Neg Bus = BW2000" & relayArray(2) ' display test desription
        HighLimit(1) = 6
        LoLimit(1) = 0.1
        Form1.Lolimit3.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit3.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("MEAS1?" & vbCr)  ' Rate == medium
        Delay(1000)
        answer = Form1.dmmPort.ReadExisting
        Delay(100)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, ">", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        dbl_answer = parsed_answer
        Debug.Print(parsed_answer)
        fileWrite("ITS Serial #", Form1.printName, Form1.printName, Form1.printName)
        Form1.printcount = 1 'notepad file to continue with pass/fail data
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal3.SelectAll()
            Form1.MeasVal3.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 3C fails L20 Missing" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal3.SelectedText = dbl_answer
            fileWrite("Test 3C FAIL L20 Missing", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal3.SelectedText = dbl_answer
            fileWrite("Test 3C PASS L20 Installed", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test3D() 'A/D ch4 return L9
        failFlag = 0
        Form1.switchPort.Write("AW0000" & vbCrLf) 'open all c bank
        Delay(400)
        Form1.switchPort.Write("CW0000" & vbCrLf) 'open all a bank
        Delay(400)
        Form1.switchPort.Write("BW2080" & vbCrLf) 'GND test for L9
        Delay(800)
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        Form1.MeasVal3.SelectAll()
        Form1.MeasVal3.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType3.Text = "Test3D L9  Pos Bus = BW2080" & relayArray(1) & " " & "Neg Bus = BW2000" & relayArray(2) ' display test desription
        HighLimit(1) = 6
        LoLimit(1) = 0.1
        Form1.Lolimit3.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit3.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("MEAS1?" & vbCr)  ' Rate == medium
        Delay(1000)
        answer = Form1.dmmPort.ReadExisting
        Delay(100)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, ">", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        dbl_answer = parsed_answer
        Debug.Print(parsed_answer)
        fileWrite("ITS Serial #", Form1.printName, Form1.printName, Form1.printName)
        Form1.printcount = 1 'notepad file to continue with pass/fail data
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal3.SelectAll()
            Form1.MeasVal3.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 3D fails L9 Missing" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal3.SelectedText = dbl_answer
            fileWrite("Test 3D FAIL L9 Missing", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal3.SelectedText = dbl_answer
            fileWrite("Test 3D PASS L9 Installed", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test3E() 'A/D ch5 return L13
        failFlag = 0
        Form1.switchPort.Write("AW0000" & vbCrLf) 'open all c bank
        Delay(400)
        Form1.switchPort.Write("CW0000" & vbCrLf) 'open all a bank
        Delay(400)
        Form1.switchPort.Write("BW2100" & vbCrLf) 'GND test for L13
        Delay(800)
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        Form1.MeasVal3.SelectAll()
        Form1.MeasVal3.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType3.Text = "Test3E  L13  Pos Bus = BW2100" & relayArray(1) & " " & "Neg Bus = BW2000" & relayArray(2) ' display test desription
        HighLimit(1) = 6
        LoLimit(1) = 0.1
        Form1.Lolimit3.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit3.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("MEAS1?" & vbCr)  ' Rate == medium
        Delay(1000)
        answer = Form1.dmmPort.ReadExisting
        Delay(100)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, ">", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        dbl_answer = parsed_answer
        Debug.Print(parsed_answer)
        fileWrite("ITS Serial #", Form1.printName, Form1.printName, Form1.printName)
        Form1.printcount = 1 'notepad file to continue with pass/fail data
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal3.SelectAll()
            Form1.MeasVal3.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 3E fails L13 Missing" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal3.SelectedText = dbl_answer
            fileWrite("Test 3E FAIL L13 Missing", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal3.SelectedText = dbl_answer
            fileWrite("Test 3E PASS L13 Installed", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test3F() 'A/D ch6 return L17
        failFlag = 0
        Form1.switchPort.Write("AW0000" & vbCrLf) 'open all c bank
        Delay(400)
        Form1.switchPort.Write("CW0000" & vbCrLf) 'open all a bank
        Delay(400)
        Form1.switchPort.Write("BW2200" & vbCrLf) 'GND test for L13
        Delay(800)
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        Form1.MeasVal3.SelectAll()
        Form1.MeasVal3.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType3.Text = "Test3F  L17  Pos Bus = BW2200" & relayArray(1) & " " & "Neg Bus = BW2000" & relayArray(2) ' display test desription
        HighLimit(1) = 6
        LoLimit(1) = 0.1
        Form1.Lolimit3.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit3.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("MEAS1?" & vbCr)  ' Rate == medium
        Delay(1000)
        answer = Form1.dmmPort.ReadExisting
        Delay(100)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, ">", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        dbl_answer = parsed_answer
        Debug.Print(parsed_answer)
        fileWrite("ITS Serial #", Form1.printName, Form1.printName, Form1.printName)
        Form1.printcount = 1 'notepad file to continue with pass/fail data
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal3.SelectAll()
            Form1.MeasVal3.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 3F fails L17 Missing" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal3.SelectedText = dbl_answer
            fileWrite("Test 3F FAIL L17 Missing", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal3.SelectedText = dbl_answer
            fileWrite("Test 3F PASS L17 Installed", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test3G() 'A/D ch7 return, L17
        failFlag = 0
        Form1.switchPort.Write("AW0400" & vbCrLf) 'L21 is tested using common1 instaed of gnd
        Delay(400)
        Form1.switchPort.Write("CW0000" & vbCrLf) 'open all a bank
        Delay(400)
        Form1.switchPort.Write("BW0400" & vbCrLf) 'GND test for L13
        Delay(800)
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        Form1.MeasVal3.SelectAll()
        Form1.MeasVal3.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType3.Text = "Test3G  L21  Pos Bus = BW2400" & relayArray(1) & " " & "Neg Bus = BW2000" & relayArray(2) ' display test desription
        HighLimit(1) = 6
        LoLimit(1) = 0.1
        Form1.Lolimit3.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit3.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("MEAS1?" & vbCr)  ' Rate == medium
        Delay(1000)
        answer = Form1.dmmPort.ReadExisting
        Delay(100)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, ">", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        dbl_answer = parsed_answer
        Debug.Print(parsed_answer)
        fileWrite("ITS Serial #", Form1.printName, Form1.printName, Form1.printName)
        Form1.printcount = 1 'notepad file to continue with pass/fail data
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal3.SelectAll()
            Form1.MeasVal3.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 3G fails L21 Missing" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal3.SelectedText = dbl_answer
            fileWrite("Test 3G FAIL L21 Missing", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal3.SelectedText = dbl_answer
            fileWrite("Test 3G PASS L21 Installed", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test4() 'Test for Vbat to ground
        failFlag = 0
        Form1.switchPort.Write("AW0002" & vbCrLf) 'TP1 Vbat to gnd is tested using common1 instaed of gnd
        Delay(400)
        Form1.switchPort.Write("CW0000" & vbCrLf) 'open all a bank
        Delay(400)
        Form1.switchPort.Write("BW0400" & vbCrLf) 'TP2
        Delay(800)
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        Form1.MeasVal4.SelectAll()
        Form1.MeasVal4.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType4.Text = "Test4  VBAT Pos Bus = BW0400" & relayArray(1) & " " & "Neg Bus = AW0002" & relayArray(2) ' display test desription
        HighLimit(1) = 2000
        LoLimit(1) = 120
        Form1.Lolimit4.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit4.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("MEAS1?" & vbCr)  ' Rate == medium
        Delay(1000)
        answer = Form1.dmmPort.ReadExisting
        Delay(100)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, ">", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        dbl_answer = parsed_answer
        ' dbl_answer = dbl_answer * -1
        Debug.Print(parsed_answer)
        fileWrite("ITS Serial #", Form1.printName, Form1.printName, Form1.printName)
        Form1.printcount = 1 'notepad file to continue with pass/fail data
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal4.SelectAll()
            Form1.MeasVal4.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 4 fails TP1 (VBAT) is shorted to gnd" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal4.SelectedText = dbl_answer
            fileWrite("Test 4 FAIL TP1 (VBAT) is shorted to gnd", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal4.SelectedText = dbl_answer
            fileWrite("Test 4 PASS TP1 +5VDC impedance test PASS", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test4A() 'Test for +3.3vdc to ground
        failFlag = 0
        Form1.switchPort.Write("AW0008" & vbCrLf) 'TP4 +3.3vdc to gnd
        Delay(400)
        Form1.switchPort.Write("CW0000" & vbCrLf) 'open all a bank
        Delay(400)
        Form1.switchPort.Write("BW0400" & vbCrLf) 'TP2
        Delay(800)
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        Form1.MeasVal4.SelectAll()
        Form1.MeasVal4.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType4.Text = "Test4A  TP4 +3.3vdc Pos Bus = BW0400" & relayArray(1) & " " & "Neg Bus = AW0008" & relayArray(2) ' display test desription
        HighLimit(1) = 500
        LoLimit(1) = 130
        Form1.Lolimit4.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit4.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("MEAS1?" & vbCr)  ' Rate == medium
        Delay(1000)
        answer = Form1.dmmPort.ReadExisting
        Delay(100)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, ">", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        dbl_answer = parsed_answer
        Debug.Print(parsed_answer)
        fileWrite("ITS Serial #", Form1.printName, Form1.printName, Form1.printName)
        Form1.printcount = 1 'notepad file to continue with pass/fail data
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal4.SelectAll()
            Form1.MeasVal4.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 4A fails TP4 (+3.3) is shorted to gnd" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal4.SelectedText = dbl_answer
            fileWrite("Test 4A FAIL TP4 (+3.3) is shorted to gnd", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal4.SelectedText = dbl_answer
            fileWrite("Test 4A PASS TP4 +3.3 impedance test PASS", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test4B() 'Test for +5vdc to ground
        failFlag = 0
        Form1.switchPort.Write("AW0001" & vbCrLf) 'TP5 +5vdc to gnd
        Delay(400)
        Form1.switchPort.Write("CW0000" & vbCrLf) 'open all a bank
        Delay(400)
        Form1.switchPort.Write("BW0400" & vbCrLf) 'TP2
        Delay(800)
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        Form1.MeasVal4.SelectAll()
        Form1.MeasVal4.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType4.Text = "Test4B of +5vdc TP5 Pos Bus = BW0400" & relayArray(1) & " " & "Neg Bus = AW0001" & relayArray(2) ' display test desription
        HighLimit(1) = 9900000000
        LoLimit(1) = 1000000
        Form1.Lolimit4.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit4.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("MEAS1?" & vbCr)  ' Rate == medium
        Delay(1000)
        answer = Form1.dmmPort.ReadExisting
        Delay(100)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, ">", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        dbl_answer = parsed_answer
        dbl_answer = dbl_answer * -1
        Debug.Print(parsed_answer)
        fileWrite("ITS Serial #", Form1.printName, Form1.printName, Form1.printName)
        Form1.printcount = 1 'notepad file to continue with pass/fail data
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal4.SelectAll()
            Form1.MeasVal4.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 4B fails TP5 (+5vdc) is shorted to gnd" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal4.SelectedText = dbl_answer
            fileWrite("Test 4B PASS TP5 +5VDC impedance test PASS", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal4.SelectedText = dbl_answer
            fileWrite("Test 4B PASS TP5 +5 to ground test PASS", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test5() 'Test for Exp_Vbus to EXP_GND ground
        failFlag = 0
        Form1.switchPort.Write("AW0040" & vbCrLf) 'exp to gnd
        Delay(400)
        Form1.switchPort.Write("CW0001" & vbCrLf) 'open all a bank
        Delay(400)
        Form1.switchPort.Write("BW0000" & vbCrLf) '
        Delay(800)
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        Form1.MeasVal5.SelectAll()
        Form1.MeasVal5.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType5.Text = "Test5  EXP_Vbus Pos Bus = CW0001" & relayArray(1) & " " & "Neg Bus = AW0040" & relayArray(2) ' display test desription
        HighLimit(1) = -99000000
        LoLimit(1) = 120
        Form1.Lolimit5.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit5.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("MEAS1?" & vbCr)  ' Rate == medium
        Delay(1000)
        answer = Form1.dmmPort.ReadExisting
        Delay(100)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, ">", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        dbl_answer = parsed_answer
        'dbl_answer = dbl_answer * -1    'Remove negative answer
        Debug.Print(parsed_answer)
        fileWrite("ITS Serial #", Form1.printName, Form1.printName, Form1.printName)
        Form1.printcount = 1 'notepad file to continue with pass/fail data
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal5.SelectAll()
            Form1.MeasVal5.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 5 fails EXP_Vbus is shorted to gnd" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal5.SelectedText = dbl_answer
            fileWrite("Test 5 PASS EXP_Vbus impedance test PASS", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal5.SelectedText = dbl_answer
            fileWrite("Test 5 PASS  EXP_VBUS to ground test PASS", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test6() 'need to fix test points
        failFlag = 0
        Form1.switchPort.Write("BW0400" & vbCrLf) 'gnd
        Delay(400)
        Form1.switchPort.Write("CW0000" & vbCrLf) 'open all a bank
        Delay(400)
        Form1.switchPort.Write("AW0020" & vbCrLf)
        Delay(400)
        Form1.switchPort.Write("DW0000" & vbCrLf) 'TP24
        Delay(800)
        Form1.MeasVal6.SelectAll()
        Form1.MeasVal6.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType6.Text = "Test6 of R20,R21 Pos Bus = BW0400" & relayArray(1) & " " & "Neg Bus = AW0020" & relayArray(2) ' display test desription
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        HighLimit(1) = 10300
        LoLimit(1) = 4000
        Form1.Lolimit6.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit6.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("AUTO" & vbCr)  'fixed range not auto
        Delay(100)
        'Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("VAL1?" & vbCr)  ' Rate == medium
        Delay(2000)
        answer = Form1.dmmPort.ReadExisting
        Delay(100)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, ">", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        parsed_answer = Replace(parsed_answer, "+6+", "") 'remove spaces from returned string
        dbl_answer = parsed_answer
        Debug.Print(parsed_answer)
        'fileWrite("ITS Serial #", Form1.printName, Form1.printName, Form1.printName)
        Form1.printcount = 1 'notepad file to continue with pass/fail data
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal6.SelectAll()
            Form1.MeasVal6.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 6 fails R21,R20 Fails" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal6.SelectedText = dbl_answer
            fileWrite("Test 6 fails R21,R20 Fails", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal6.SelectedText = dbl_answer
            fileWrite("Test 6 PASS  R21,R20 test PASS", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test7() 'L52 is a non pop check to see that it is not installed
        failFlag = 0
        Delay(100)
        Form1.switchPort.Write("AW0200" & vbCrLf)
        Delay(400)
        Form1.switchPort.Write("BW0400" & vbCrLf)
        Delay(400)
        Form1.switchPort.Write("CW0000" & vbCrLf)
        Delay(400)
        'Form1.switchPort.Close()
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        Form1.MeasVal7.SelectAll()
        Form1.MeasVal7.SelectionColor = Color.Black
        Form1.TestType7.Text = "Test7 of L52 non pop Pos Bus = AW0200" & relayArray(1) & " " & "Neg Bus = BW0400" & relayArray(2) ' display test desription
        Form1.dmmPort.Write("ohms" & vbCrLf)
        HighLimit(1) = 9900000000
        LoLimit(1) = 1000
        Form1.Lolimit7.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit7.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Form1.dmmPort.Write("VAL1?" & vbCr)  ' Rate == medium
        Delay(3000)
        answer = Form1.dmmPort.ReadExisting
        Delay(100)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, ">", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        dbl_answer = parsed_answer
        Debug.Print(parsed_answer)
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal7.SelectAll()
            Form1.MeasVal7.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 7 fails" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal7.SelectedText = dbl_answer
            fileWrite("Test 7 FAIL", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal7.SelectedText = dbl_answer
            fileWrite("Test 7 PASS", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test8()  ' Fix pogo lo limit fixed
        failFlag = 0
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        Delay(100)
        Form1.switchPort.Write("AW0000" & vbCrLf)
        Delay(100)
        Form1.switchPort.Write("BW0000" & vbCrLf)
        Delay(100)
        Form1.switchPort.Write("CW0000" & vbCrLf)
        Delay(100)
        Form1.switchPort.Write("DW0000" & vbCrLf)
        Delay(100)
        Form1.switchPort.Write("FW0200" & vbCrLf) 'Power up
        Delay(100)
        Form1.switchPort.Write("AW0004" & vbCrLf)
        Delay(100)
        Form1.switchPort.Write("BW0400" & vbCrLf)
        Delay(100)

        Delay(500)
        Form1.dmmPort.Write("VDC" & vbCrLf)
        Form1.dmmPort.Write("AUTO" & vbCr)  'fixed range not auto
        HighLimit(1) = 11.7
        LoLimit(1) = -1
        Form1.MeasVal8.SelectAll()
        Form1.MeasVal8.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType8.Text = "Test 8 Vbus to ground" ' display test desription
        Form1.Lolimit8.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit8.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        Form1.dmmPort.Write("VAL1?" & vbCr)
        Delay(1500)
        answer = Form1.dmmPort.ReadExisting
        Delay(500)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, ">", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        dbl_answer = parsed_answer
        dbl_answer = dbl_answer * -1    'reverse the polarity of the answer
        Debug.Print(parsed_answer)
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal8.SelectAll()
            Form1.MeasVal8.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 8 failsVbus to ground" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal8.SelectedText = dbl_answer
            fileWrite("Test 8 FAIL", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal8.SelectedText = dbl_answer
            fileWrite("Test 8 PASS", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        'clearTextbox()
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test9()
        failFlag = 0
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        Delay(100)
        Form1.switchPort.Write("AW0000" & vbCrLf)
        Delay(100)
        Form1.switchPort.Write("BW0000" & vbCrLf)
        Delay(100)
        Form1.switchPort.Write("CW0000" & vbCrLf)
        Delay(100)
        Form1.switchPort.Write("DW0000" & vbCrLf)
        Delay(100)
        'Form1.switchPort.Write("FW0200" & vbCrLf) 'Power up
        Delay(100)
        Form1.switchPort.Write("AW0008" & vbCrLf)
        Delay(100)
        Form1.switchPort.Write("BW0400" & vbCrLf)
        Delay(100)
        Form1.dmmPort.Write("VDC" & vbCrLf)
        Form1.dmmPort.Write("AUTO" & vbCr)  'fixed range not auto
        HighLimit(1) = 3.4
        LoLimit(1) = 3.1
        Form1.MeasVal9.SelectAll()
        Form1.MeasVal9.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType9.Text = "Test 9 3.3vdc Switching Supply" ' display test desription
        Form1.Lolimit9.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit9.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Form1.dmmPort.Write("VAL1?" & vbCr)
        Delay(2000)
        answer = Form1.dmmPort.ReadExisting
        Delay(1500)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, ">", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        dbl_answer = parsed_answer
        dbl_answer = dbl_answer * -1    'reverse the polarity of the answer
        Debug.Print(parsed_answer)
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal9.SelectAll()
            Form1.MeasVal9.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 9 fails 3.3 volt Switching Supply" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal9.SelectedText = dbl_answer
            fileWrite("Test 9 FAIL", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal9.SelectedText = dbl_answer
            fileWrite("Test 9 PASS", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        'clearTextbox()
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test10()
        failFlag = 0
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        Delay(100)
        Form1.switchPort.Write("AW0000" & vbCrLf)
        Delay(100)
        Form1.switchPort.Write("BW0000" & vbCrLf)
        Delay(100)
        Form1.switchPort.Write("CW0000" & vbCrLf)
        Delay(100)
        Form1.switchPort.Write("DW0000" & vbCrLf)
        Delay(100)
        'Form1.switchPort.Write("FW0200" & vbCrLf) 'Power up
        Delay(100)
        Form1.switchPort.Write("AW0001" & vbCrLf)
        Delay(100)
        Form1.switchPort.Write("BW0400" & vbCrLf)
        Delay(100)
        Form1.dmmPort.Write("VDC" & vbCrLf)
        Form1.dmmPort.Write("AUTO" & vbCr)  'fixed range not auto
        HighLimit(1) = 5.1
        LoLimit(1) = 4.9
        Form1.MeasVal10.SelectAll()
        Form1.MeasVal10.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType10.Text = "Test 10  5vdc Switching Supply" ' display test desription
        Form1.Lolimit10.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit10.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Form1.dmmPort.Write("VAL1?" & vbCr)
        Delay(2000)
        answer = Form1.dmmPort.ReadExisting
        Delay(1500)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        dbl_answer = parsed_answer
        dbl_answer = dbl_answer * -1    'reverse the polarity of the answer
        Debug.Print(parsed_answer)
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal10.SelectAll()
            Form1.MeasVal10.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 10 fails  5vdc Switching Supply" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal10.SelectedText = dbl_answer
            fileWrite("Test 10 FAIL", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal10.SelectedText = dbl_answer
            fileWrite("Test 10 PASS", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        'clearTextbox()
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test11()
        failFlag = 0
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        Delay(100)
        Form1.switchPort.Write("AW0000" & vbCrLf)
        Delay(100)
        Form1.switchPort.Write("BW0000" & vbCrLf)
        Delay(100)
        Form1.switchPort.Write("CW0000" & vbCrLf)
        Delay(100)
        Form1.switchPort.Write("DW0000" & vbCrLf)
        Delay(100)
        'Form1.switchPort.Write("FW0200" & vbCrLf) 'Power up
        Delay(100)
        Form1.switchPort.Write("AW0020" & vbCrLf)
        Delay(100)
        Form1.switchPort.Write("BW0400" & vbCrLf)
        Delay(100)
        Form1.dmmPort.Write("VDC" & vbCrLf)
        Form1.dmmPort.Write("AUTO" & vbCr)  'fixed range not auto
        HighLimit(1) = 1.06
        LoLimit(1) = 1.02
        Form1.MeasVal11.SelectAll()
        Form1.MeasVal11.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType11.Text = "Test 11  Voltage Sense" ' display test desription
        Form1.LoLimit11.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit11.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Form1.dmmPort.Write("VAL1?" & vbCr)
        Delay(2000)
        answer = Form1.dmmPort.ReadExisting
        Delay(1500)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        dbl_answer = parsed_answer
        dbl_answer = dbl_answer * -1    'reverse the polarity of the answer
        Debug.Print(parsed_answer)
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal11.SelectAll()
            Form1.MeasVal11.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 11 fails  Voltage Sense" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal11.SelectedText = dbl_answer
            fileWrite("Test 11 FAIL", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal11.SelectedText = dbl_answer
            fileWrite("Test 11 PASS", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        'clearTextbox()
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test12()
        failFlag = 0
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        Delay(100)
        Form1.switchPort.Write("AW0000" & vbCrLf)
        Delay(100)
        Form1.switchPort.Write("BW0000" & vbCrLf)
        Delay(100)
        Form1.switchPort.Write("CW0000" & vbCrLf)
        Delay(100)
        Form1.switchPort.Write("DW0000" & vbCrLf)
        Delay(100)
        'Form1.switchPort.Write("FW0200" & vbCrLf) 'Power up
        Delay(100)
        Form1.switchPort.Write("AW0040" & vbCrLf)
        Delay(100)
        Form1.switchPort.Write("CW0001" & vbCrLf)
        Delay(100)
        Form1.dmmPort.Write("VDC" & vbCrLf)
        Form1.dmmPort.Write("AUTO" & vbCr)  'fixed range not auto
        HighLimit(1) = 11.6
        LoLimit(1) = 11.2
        Form1.MeasVal12.SelectAll()
        Form1.MeasVal12.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType12.Text = "Test 12  Expansion Power" ' display test desription
        Form1.LoLimit12.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit12.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Form1.dmmPort.Write("VAL1?" & vbCr)
        Delay(2000)
        answer = Form1.dmmPort.ReadExisting
        Delay(1500)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        dbl_answer = parsed_answer
        dbl_answer = dbl_answer * -1    'reverse the polarity of the answer
        Debug.Print(parsed_answer)
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal12.SelectAll()
            Form1.MeasVal12.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 12 fails  Expansion Power" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal12.SelectedText = dbl_answer
            fileWrite("Test 12 FAIL", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal12.SelectedText = dbl_answer
            fileWrite("Test 12 PASS", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        'clearTextbox()
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test13()
        failFlag = 0
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        Delay(100)
        Form1.switchPort.Write("AW0000" & vbCrLf)
        Delay(100)
        Form1.switchPort.Write("BW0000" & vbCrLf)
        Delay(100)
        Form1.switchPort.Write("CW0000" & vbCrLf)
        Delay(100)
        Form1.switchPort.Write("DW0000" & vbCrLf)
        Delay(100)
        'Form1.switchPort.Write("FW0200" & vbCrLf) 'Power up
        Delay(100)
        Form1.switchPort.Write("AW0040" & vbCrLf)
        Delay(100)
        Form1.switchPort.Write("CW0001" & vbCrLf)
        Delay(100)
        Form1.dmmPort.Write("VDC" & vbCrLf)
        Form1.dmmPort.Write("AUTO" & vbCr)  'fixed range not auto
        HighLimit(1) = 11.6
        LoLimit(1) = 11.2
        Form1.MeasVal13.SelectAll()
        Form1.MeasVal13.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType13.Text = "Test 13  GPS Power" ' display test desription
        Form1.LoLimit13.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit13.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Form1.dmmPort.Write("VAL1?" & vbCr)
        Delay(2000)
        answer = Form1.dmmPort.ReadExisting
        Delay(1500)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        dbl_answer = parsed_answer
        dbl_answer = dbl_answer * -1    'reverse the polarity of the answer
        Debug.Print(parsed_answer)
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal13.SelectAll()
            Form1.MeasVal13.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 13 fails  GPS Power" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal13.SelectedText = dbl_answer
            fileWrite("Test 13 FAIL", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal13.SelectedText = dbl_answer
            fileWrite("Test 13 PASS", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        'clearTextbox()
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test14()
        failFlag = 0
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        Delay(100)
        Form1.switchPort.Write("AW0400" & vbCrLf)
        Delay(100)
        Form1.switchPort.Write("BW0000" & vbCrLf)
        Delay(100)
        Form1.switchPort.Write("CW0000" & vbCrLf)
        Delay(100)
        Form1.switchPort.Write("DW0002" & vbCrLf)
        Delay(100)
        Form1.switchPort.Write("FW0200" & vbCrLf) 'Power up
        Delay(100)
        Form1.dmmPort.Write("VDC" & vbCrLf)
        Form1.dmmPort.Write("AUTO" & vbCr)  'fixed range not auto
        HighLimit(1) = 3.0
        LoLimit(1) = 2.3
        Form1.MeasVal14.SelectAll()
        Form1.MeasVal14.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType14.Text = "Test 14  R82,R83 and R92 " ' display test desription
        Form1.LoLimit14.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit14.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Form1.dmmPort.Write("VAL1?" & vbCr)
        Delay(2000)
        answer = Form1.dmmPort.ReadExisting
        Delay(1500)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        dbl_answer = parsed_answer
        Debug.Print(parsed_answer)
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal14.SelectAll()
            Form1.MeasVal14.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 14 fails   R82,R83 and R92" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal14.SelectedText = dbl_answer
            fileWrite("Test 14 FAIL   R82,R83 and R92", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal14.SelectedText = dbl_answer
            fileWrite("Test 14 PASS    R82,R83 and R92", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test15()  'Power LED on
        failFlag = 0
        Dim res
        Form1.switchPort.Write("FW0200" + vbCrLf) 'FW0000 Power Supply bit to turn power on (FW0000 is off)
        Form1.portConnect()
        Form1.ExternalModemBox.Text = "Test 15"
        Delay(100)
        failFlag = 0
        Form1.MeasVal15.SelectAll()
        Form1.MeasVal15.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType15.Text = "Test15 Power LED "  ' display test desription
        failFlag = 0
        Form1.reset = 1
        Dim Ans As Integer
        Ans = MsgBox("Is the Power/Communications LED ON and Flashing?", vbYesNo, "Front Page")
        If Ans = vbYes Then
            res = 0
        Else
            res = 1
        End If

        HighLimit(1) = 0
        LoLimit(1) = 0
        Form1.LoLimit15.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit15.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Debug.Print("External Modem Port" & Form1.str1)
        If res > HighLimit(1) Or res < LoLimit(1) Then
            Form1.MeasVal15.SelectAll()
            Form1.MeasVal15.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 14 fails (External Modem port)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal15.SelectedText = res
            fileWrite("Test 15 FAIL (External Modem Port)", HighLimit(1), res, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal15.SelectedText = res
            fileWrite("Test 15 PASS (External Modem Port)", HighLimit(1), res, LoLimit(1))
        End If

        If Form1.stopTest = 1 Then
            Testend()
        End If
        Delay(1000)
    End Sub
    Sub Test17()
        Dim clock As UInteger
        Form1.portConnect()
        Delay(3000)
        Form1.switchPort.Write("FW0000" + vbCrLf)
        Delay(200)

        Form1.ExternalModemBox.Text = "TEST 17"

        Form1.station.SYS.ClockMode = cSYS.CLK_MODE.PRI
        Delay(1000)
        Form1.station.SYS.SendSetup()
        Delay(10000)
        Form1.station.SYS.RequestSetup()
        Delay(1000)
        clock = Form1.station.SYS.ClockFCY
        Form1.ExternalModemBox.Text = "TEST 17 clk fcy"
        Form1.TextBox2.Text = clock   ' Display clock in textbox 2

        Form1.station.RF.TxPower = cRF.RF_TX_POWER_LEVEL_ENUM.TX_POWER_1MW
        Form1.station.RF.SendSetup()
        Delay(8000)

        Form1.station.GPS.NMEA_echo(cGPS.NMEA_ECHO_PORTS.USB_EXT) = True
        Form1.station.GPS.NMEA_echo(cGPS.NMEA_ECHO_PORTS.USER) = False
        Form1.station.GPS.SendSetup()
        Delay(8000)
        failFlag = 0
        clearTextbox()
        Form1.Button1.Focus()
        Form1.reset = 1
        Delay(100)
        Try
            Form1.station.RequestAllStatus()
            Delay(100)
            Form1.station.RequestAllStatus()
        Catch ex As Exception
        End Try
        Delay(1000)
        Form1.MeasVal1.SelectAll()
        Form1.MeasVal1.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.lblPleaseWait.Text = "Wait while GPS tries to Lock On"
        fileWrite("ITS Serial #", Form1.printName, Form1.printName, Form1.printName)
        Form1.printcount = 1 'notepad file to continue with pass/fail data
        Form1.TestType1.Text = "Test 17 (Analog IN 1)" ' display test desription
        HighLimit(1) = 6.3
        LoLimit(1) = 3.9
        Form1.Lolimit1.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit1.Text = HighLimit(1)   ' Display lolimit in textbox 1
        ' answer = Form1.dmmPort.ReadExisting
        Delay(100)
        Form1.ExternalModemBox.Text = "TEST 17"
        If Form1.dbl_analog1 > HighLimit(1) Or Form1.dbl_analog1 < LoLimit(1) Then
            Form1.MeasVal1.SelectAll()
            Form1.MeasVal1.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 17 fails (Analog IN 1)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal1.SelectedText = Form1.dbl_analog1
            fileWrite("Test 17 FAIL Analog IN 1", HighLimit(1), Form1.dbl_analog1, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal1.SelectedText = Form1.dbl_analog1
            fileWrite("Test 17 PASS", HighLimit(1), Form1.dbl_analog1, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test18()
        failFlag = 0
        Debug.Print(Form1.dbl_analog2)
        Form1.TestType2.Text = "Test 18 (Analog IN 2)" ' display test desription

        HighLimit(1) = 6.0
        LoLimit(1) = 3.6
        Form1.ExternalModemBox.Text = Form1.finalTest
        Form1.MeasVal2.SelectAll()
        Form1.MeasVal2.SelectionColor = Color.Black
        Form1.Lolimit2.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit2.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Delay(100)
        If Form1.dbl_analog2 > HighLimit(1) Or Form1.dbl_analog2 < LoLimit(1) Then
            Form1.MeasVal2.SelectAll()
            Form1.MeasVal2.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 18 fails (Analog IN 2)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal2.SelectedText = Form1.dbl_analog2
            fileWrite("Test 18 fails Analog IN 2", HighLimit(1), Form1.dbl_analog2, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal2.SelectedText = Form1.dbl_analog2
            fileWrite("Test 18 PASS", HighLimit(1), Form1.dbl_analog2, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test19()
        failFlag = 0
        Debug.Print(Form1.dbl_analog3)
        Form1.MeasVal3.SelectAll()
        Form1.MeasVal3.SelectionColor = Color.Black
        Form1.TestType3.Text = "Test 19 (Analog IN 3)" ' display test desription
        HighLimit(1) = 3.82
        LoLimit(1) = 3.54
        Form1.Lolimit3.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit3.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Delay(100)
        If Form1.dbl_analog3 > HighLimit(1) Or Form1.dbl_analog3 < LoLimit(1) Then
            Form1.MeasVal3.SelectAll()
            Form1.MeasVal3.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 19 fails (Analog IN 3)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal3.SelectedText = Form1.dbl_analog3
            fileWrite("Test 19 fails Analog IN 3", HighLimit(1), Form1.dbl_analog3, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal3.SelectedText = Form1.dbl_analog3
            fileWrite("Test 19 Pass", HighLimit(1), Form1.dbl_analog3, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test20()
        failFlag = 0
        Debug.Print(Form1.dbl_analog4)
        Form1.MeasVal4.SelectAll()
        Form1.MeasVal4.SelectionColor = Color.Black        ' Return display back to pass condition
        Form1.TestType4.Text = "Test 20 (Analog IN 4)" ' display test desription
        HighLimit(1) = 3.67
        LoLimit(1) = 3.46
        Form1.Lolimit4.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit4.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Delay(100)
        If Form1.dbl_analog4 > HighLimit(1) Or Form1.dbl_analog4 < LoLimit(1) Then
            Form1.MeasVal4.SelectAll()
            Form1.MeasVal4.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 20 fails (Analog IN 4)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal4.SelectedText = Form1.dbl_analog4
            fileWrite("Test 20 fails Analog IN 4", HighLimit(1), Form1.dbl_analog4, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal4.SelectedText = Form1.dbl_analog4
            fileWrite("Test 20 Pass", HighLimit(1), Form1.dbl_analog4, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test21()
        failFlag = 0
        Debug.Print(Form1.dbl_analog5)
        Form1.MeasVal5.SelectAll()
        Form1.MeasVal5.SelectionColor = Color.Black        ' Return display back to pass condition
        Form1.TestType5.Text = "Test 21 (Analog IN 5)" ' display test desription
        HighLimit(1) = 3.51
        LoLimit(1) = 3.28
        Form1.Lolimit5.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit5.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Delay(100)
        If Form1.dbl_analog5 > HighLimit(1) Or Form1.dbl_analog5 < LoLimit(1) Then
            Form1.MeasVal5.SelectAll()
            Form1.MeasVal5.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 21 fails (Analog IN 5)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal5.SelectedText = Form1.dbl_analog5
            fileWrite("Test 21 fails Analog IN 5", HighLimit(1), Form1.dbl_analog5, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal5.SelectedText = Form1.dbl_analog5
            fileWrite("Test 21 Pass", HighLimit(1), Form1.dbl_analog5, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test22()
        failFlag = 0
        Debug.Print(Form1.dbl_analog6)
        Form1.MeasVal6.SelectAll()
        Form1.MeasVal6.SelectionColor = Color.Black        ' Return display back to pass condition
        Form1.TestType6.Text = "Test 22 (Analog IN 6)" ' display test desription
        HighLimit(1) = 3.22
        LoLimit(1) = 2.95
        Form1.Lolimit6.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit6.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Delay(100)
        If Form1.dbl_analog6 > HighLimit(1) Or Form1.dbl_analog6 < LoLimit(1) Then
            Form1.MeasVal6.SelectAll()
            Form1.MeasVal6.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 22 fails (Analog IN 6)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal6.SelectedText = Form1.dbl_analog6
            fileWrite("Test 22 fails Analog IN 6", HighLimit(1), Form1.dbl_analog6, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal6.SelectedText = Form1.dbl_analog6
            fileWrite("Test 22 Pass", HighLimit(1), Form1.dbl_analog6, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test23()
        failFlag = 0
        Debug.Print(Form1.dbl_analog7)
        Form1.MeasVal7.SelectAll()
        Form1.MeasVal7.SelectionColor = Color.Black        ' Return display back to pass condition
        Form1.TestType7.Text = "Test 23 (Analog IN 7)" ' display test desription
        HighLimit(1) = 2.85
        LoLimit(1) = 2.5
        Form1.Lolimit7.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit7.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Delay(100)
        If Form1.dbl_analog7 > HighLimit(1) Or Form1.dbl_analog7 < LoLimit(1) Then
            Form1.MeasVal7.SelectAll()
            Form1.MeasVal7.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 23 fails (Analog IN 7)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal7.SelectedText = Form1.dbl_analog7
            fileWrite("Test 23 fails Analog IN 7", HighLimit(1), Form1.dbl_analog7, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal7.SelectedText = Form1.dbl_analog7
            fileWrite("Test 23 Pass", HighLimit(1), Form1.dbl_analog7, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test24()
        failFlag = 0
        Debug.Print(Form1.dbl_analog8)
        Form1.MeasVal8.SelectAll()
        Form1.MeasVal8.SelectionColor = Color.Black        ' Return display back to pass condition
        Form1.TestType8.Text = "Test 24 (Analog IN 8)" ' display test desription
        HighLimit(1) = 1.76
        LoLimit(1) = 1.4
        Form1.Lolimit8.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit8.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Delay(100)
        If Form1.dbl_analog8 > HighLimit(1) Or Form1.dbl_analog8 < LoLimit(1) Then
            Form1.MeasVal8.SelectAll()
            Form1.MeasVal8.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 24 fails (Analog IN 8)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal8.SelectedText = Form1.dbl_analog8
            fileWrite("Test 24 FAIL Analog IN 8", HighLimit(1), Form1.dbl_analog8, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal8.SelectedText = Form1.dbl_analog8
            fileWrite("Test 24 PASS", HighLimit(1), Form1.dbl_analog8, LoLimit(1))
        End If
        If finalFailFlag = 0 Then
            'clearTextbox()
            'Testend()
        End If
        'If Form1.stopTest = 1 Then Testend()
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test25()  'battery current
        failFlag = 0
        Form1.MeasVal9.SelectAll()
        Form1.MeasVal9.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType9.Text = "Test25 Battery Current"  ' display test desription
        HighLimit(1) = 235
        LoLimit(1) = 93
        Form1.Lolimit9.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit9.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Form1.station.RF.TxPower = cRF.RF_TX_POWER_LEVEL_ENUM.TX_POWER_1MW
        Form1.station.RF.SendSetup()
        Delay(3500)
        Form1.station.BAT.RequestStatus()
        If Form1.batMa > 135 Then
            Form1.station.RF.TxPower = cRF.RF_TX_POWER_LEVEL_ENUM.TX_POWER_1MW
            Form1.station.RF.SendSetup()
            Delay(4000)
        End If
        Delay(800)
        Form1.ExternalModemBox.Text = "Battery Current " & Form1.batMa
        If Form1.batMa > HighLimit(1) Or Form1.batMa < LoLimit(1) Then
            Form1.MeasVal9.SelectAll()
            Form1.MeasVal9.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 25 fails (Battery Current)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal9.SelectedText = Form1.batMa
            fileWrite("Test 25 FAIL (Battery Current)", HighLimit(1), Form1.batMa, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal9.SelectedText = Form1.batMa
            fileWrite("Test 25 PASS (Battery Current)", HighLimit(1), Form1.batMa, LoLimit(1))
        End If

        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test26() 'CutDown off
        failFlag = 0
        Dim HL As Double
        Dim LL As Double
        Delay(500)
        Form1.dmmPort.Write("REMS" & vbCrLf)  'remote
        'Form1.dmmPort.Write("*RST" & vbCrLf)  'RESET
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        Form1.switchPort.Write("AW0800" & vbCrLf) 'pin 12 50 pin dsub
        Delay(400)
        Form1.switchPort.Write("CW0002" & vbCrLf) 'pin 30 50 pin dsub
        'Form1.station.SYS.ActivateCutDown()
        Delay(400)
        'Form1.switchPort.Close()
        Form1.MeasVal10.SelectAll()
        Form1.MeasVal10.SelectionColor = Color.Black    ' Return display back to pass condition
        Form1.dmmPort.Write("ohms" & vbCrLf)
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCrLf)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("VAL1?" & vbCr)
        Delay(1000)
        Form1.TestType10.Text = "Test26 CutDown off (AW0800:CW0002)" ' display test desription
        'HighLimit(1) = 99000000000
        'LoLimit(1) = 1000000
        HL = 99000000000
        LL = 1000000000
        Form1.Lolimit10.Text = LL     ' Display highlimit in textbox 1
        Form1.Highlimit10.Text = HL   ' Display lolimit in textbox 1
        answer = Form1.dmmPort.ReadExisting
        Delay(500)
        Debug.Print("Cutdownoff = ", answer)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "?>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, ">", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        dbl_answer = parsed_answer
        Debug.Print(parsed_answer)
        Delay(500)
        If dbl_answer > HL Or dbl_answer < LL Then
            Form1.MeasVal10.SelectAll()
            Form1.MeasVal10.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 26 fails (CutDown off)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal10.SelectedText = dbl_answer
            fileWrite("Test 26 FAIL (CutDown off)", HL, dbl_answer, LL)
        End If
        If failFlag = 0 Then
            Form1.MeasVal10.SelectedText = dbl_answer
            fileWrite("Test 26 PASS (CutDown off)", HL, dbl_answer, LL)
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test27() 'CutDown timeout cutdown off
        'Form1.switchPort.Open()
        failFlag = 0
        Dim cutdown_answer As String
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        Form1.switchPort.Write("AW0800" & vbCrLf) 'pin 12 50 pin dsub
        Delay(400)
        Form1.switchPort.Write("CW0002" & vbCrLf) 'pin 30 50 pin dsub
        Delay(500)
        Form1.station.SYS.ActivateFTS()
        Delay(2500)
        Form1.MeasVal11.SelectAll()
        Form1.MeasVal11.SelectionColor = Color.Black    ' Return display back to pass condition
        Form1.TestType11.Text = "Test27 CutDown On (AW0800:CW0002)" ' display test desription
        HighLimit(1) = 5
        LoLimit(1) = 0.2
        Form1.LoLimit11.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit11.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Form1.dmmPort.Write("ohms" & vbCrLf)
        Delay(100)
        Form1.dmmPort.Write("FIXED" & vbCrLf)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCrLf)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Delay(200)
        Form1.dmmPort.Write("VAL1?" & vbCrLf)
        Delay(2000)
        cutdown_answer = Form1.dmmPort.ReadExisting
        Delay(1500)
        Debug.Print("Cutdown On = ", cutdown_answer)
        parsed_answer = Replace(cutdown_answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        Debug.Print("Cutdown On = ", cutdown_answer)
        dbl_answer = parsed_answer
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal11.SelectAll()
            Form1.MeasVal11.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 27 fails (CutDown on)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal11.SelectedText = dbl_answer
            fileWrite("Test 27 FAIL (CutDown on)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal11.SelectedText = dbl_answer
            fileWrite("Test 27 PASS (CutDown on)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test27A() 'CutDown on
        'Form1.switchPort.Open()
        failFlag = 0
        Dim cutdown_answer As String
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        Delay(500)
        Form1.switchPort.Write("AW0800" & vbCrLf) 'pin 12 50 pin dsub
        Delay(400)
        Form1.switchPort.Write("CW0002" & vbCrLf) 'pin 30 50 pin dsub
        Form1.MeasVal11.SelectAll()
        Form1.MeasVal11.SelectionColor = Color.Black    ' Return display back to pass condition
        Form1.TestType11.Text = "Test27A CutDown Timeout off(AW0800:CW0002)" ' display test desription
        Delay(9000) 'wait for timeout
        HighLimit(1) = 99000000000
        LoLimit(1) = 100000000
        Form1.LoLimit11.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit11.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Form1.dmmPort.Write("ohms" & vbCrLf)
        Delay(100)
        Form1.dmmPort.Write("FIXED" & vbCrLf)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCrLf)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Delay(200)
        Form1.dmmPort.Write("VAL?" & vbCrLf)
        Delay(2000)
        cutdown_answer = Form1.dmmPort.ReadExisting
        Delay(1500)
        Debug.Print("Cutdown On = ", cutdown_answer)
        parsed_answer = Replace(cutdown_answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        Debug.Print("Cutdown On = ", cutdown_answer)
        dbl_answer = parsed_answer
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal11.SelectAll()
            Form1.MeasVal11.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 27A fails (CutDown Timeout off)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal11.SelectedText = dbl_answer
            fileWrite("Test 27A FAIL (CutDown Timeout off)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal11.SelectedText = dbl_answer
            fileWrite("Test 27A PASS (CutDown Timeout off)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test28() 'transPonder activate
        failFlag = 0
        Form1.dmmPort.Write("REMS" & vbCrLf)  'remote
        ' Form1.dmmPort.Write("*RST" & vbCrLf)  'RESET
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        Delay(100)
        Form1.switchPort.Write("AW1000" & vbCrLf) 'pin 13 50 pin dsub
        Delay(600)
        Form1.switchPort.Write("CW0004" & vbCrLf) 'pin 31 50 pin dsub
        Form1.station.SYS.RelayMode = cSYS.RELAY_MODE.MANUAL
        Form1.station.SYS.SendSetup()
        Delay(2700)
        Form1.station.SYS.RelayReset() ' To ensure that the relay is open
        Delay(1000)
        Form1.station.SYS.RelaySet()
        Delay(2500)
        'Form1.switchPort.Close()
        Form1.MeasVal12.SelectAll()
        Form1.MeasVal12.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.dmmPort.Write("ohms" & vbCrLf)
        'Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Form1.TestType12.Text = "Test28 Transponder On (AW1000:CW0004)" ' display test desription
        HighLimit(1) = 5
        LoLimit(1) = 0.1
        Form1.LoLimit12.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit12.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Form1.dmmPort.Write("VAL1?" & vbCrLf)
        Delay(1800)
        answer = Form1.dmmPort.ReadExisting
        Delay(1300)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        dbl_answer = parsed_answer
        Debug.Print(parsed_answer)
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal12.SelectAll()
            Form1.MeasVal12.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 28 fails Transponder ON" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal12.SelectedText = dbl_answer
            fileWrite("Test 28 FAIL Transponder ON", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal12.SelectedText = dbl_answer
            fileWrite("Test 28 PASS Transponder ON", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test28A() 'transPonder activate
        failFlag = 0
        'Form1.station.RequestAllStatus()
        Form1.station.SYS.RequestStatus()        'Form1.relayStatus = Form1.station.SYS.RelayState
        Delay(2000)
        Form1.relayStatus = Form1.station.SYS.RelayState
        Form1.MeasVal12.SelectAll()
        Form1.MeasVal12.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType12.Text = "Test28A Transponder On status" ' display test desription
        HighLimit(1) = -1
        LoLimit(1) = -1
        Form1.LoLimit12.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit12.Text = HighLimit(1)   ' Display lolimit in textbox 1
        If Form1.relayStatus > HighLimit(1) Or Form1.relayStatus < LoLimit(1) Then
            Form1.MeasVal12.SelectAll()
            Form1.MeasVal12.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 28A fails Transponder ON status" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal12.SelectedText = Form1.relayStatus
            fileWrite("Test 28A FAIL Transponder ON status", HighLimit(1), Form1.relayStatus, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal12.SelectedText = Form1.relayStatus
            fileWrite("Test 28A PASS Transponder ON status", HighLimit(1), Form1.relayStatus, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test29() 'transPonder DeActivate
        failFlag = 0
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        Delay(100)
        Form1.switchPort.Write("AW1000" & vbCrLf) 'pin 13 50 pin dsub
        Delay(400)
        Form1.switchPort.Write("CW0004" & vbCrLf) 'pin 31 50 pin dsub
        Form1.station.SYS.RelayReset()
        Delay(2000)
        'Form1.switchPort.Close()
        Form1.MeasVal13.SelectAll()
        Form1.MeasVal13.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.dmmPort.Write("ohms" & vbCrLf)
        Delay(100)
        Form1.dmmPort.Write("FIXED" & vbCrLf)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCrLf)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Delay(200)
        Form1.TestType13.Text = "Test29 Transponder Off (AW1000:CW0004)" ' display test desription
        HighLimit(1) = 1300000000
        LoLimit(1) = 10000000
        Form1.LoLimit13.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit13.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Form1.dmmPort.Write("VAL1?" & vbCrLf)
        Delay(1000)
        answer = Form1.dmmPort.ReadExisting
        Delay(1500)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        parsed_answer = Replace(parsed_answer, "+1E+9+1E+9", "+1E+9") 'remove spaces from returned string
        parsed_answer = Replace(parsed_answer, "+6+1E+9", "+1E+9") 'remove spaces from returned string
        dbl_answer = parsed_answer
        Debug.Print(parsed_answer)
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal13.SelectAll()
            Form1.MeasVal13.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 29 fails Transponder Off" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal13.SelectedText = dbl_answer
            fileWrite("Test 29 FAIL Transponder Off", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal13.SelectedText = dbl_answer
            fileWrite("Test 29 PASS Transponder Off", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test29A() 'transPonder deactivate status
        failFlag = 0
        'Form1.station.RequestAllStatus()
        Form1.station.SYS.RequestStatus()        'Form1.relayStatus = Form1.station.SYS.RelayState
        Delay(2000)
        Form1.MeasVal13.SelectAll()
        Form1.MeasVal13.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType13.Text = "Test29A Transponder off status" ' display test desription
        HighLimit(1) = 0
        LoLimit(1) = 0
        Form1.LoLimit13.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit13.Text = HighLimit(1)   ' Display lolimit in textbox 1
        If Form1.relayStatus > HighLimit(1) Or Form1.relayStatus < LoLimit(1) Then
            Form1.MeasVal13.SelectAll()
            Form1.MeasVal13.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 29A fails Transponder off status" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal13.SelectedText = Form1.relayStatus
            fileWrite("Test 29A FAIL Transponder off status", HighLimit(1), Form1.relayStatus, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal13.SelectedText = Form1.relayStatus
            fileWrite("Test 29A PASS Transponder off status", HighLimit(1), Form1.relayStatus, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test30()
        failFlag = 0
        'Dim digitalAnswer
        'Form1.station.UOUT.PortByte = &HFE
        Form1.station.UOUT.Ports(0).Value = False ' pulled up output goes hi port 0
        'Form1.station.UOUT.Ports(0).Value = True ' pulled up output goes hi port 0
        Delay(200)
        Form1.station.UOUT.Ports(1).Value = True ' pulled up output goes lo port 1
        Form1.station.UOUT.Ports(2).Value = True ' pulled up output goes lo port 2
        Form1.station.UOUT.Ports(3).Value = True ' pulled up output goes lo port 3
        Form1.station.UOUT.Ports(4).Value = True ' pulled up output goes lo port 4
        Form1.station.UOUT.Ports(5).Value = True ' pulled up output goes lo port 5
        Form1.station.UOUT.Ports(6).Value = True ' pulled up output goes lo port 6
        Form1.station.UOUT.Ports(7).Value = True ' pulled up output goes lo port 7

        Form1.station.UOUT.SendSetup()
        Delay(1800)

        Form1.station.UOUT.RequestStatus()
        Delay(1000)

        Form1.dmmPort.DiscardInBuffer()
        Delay(100)
        Form1.dmmPort.DiscardOutBuffer()
        Delay(100)
        Form1.switchPort.Write("AW0001" & vbCrLf) 'pin 13 50 pin dsub
        Delay(600)
        Form1.switchPort.Write("BW0008" & vbCrLf) 'pin 31 50 pin dsub
        Delay(300)
        HighLimit(1) = 5
        LoLimit(1) = 0.2
        Form1.LoLimit14.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit14.Text = HighLimit(1)   ' Display lolimit in textbox 1

        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("VAL1?" & vbCr)  ' Rate == medium
        Delay(1500)
        answer = Form1.dmmPort.ReadExisting
        Delay(500)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "+", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "!>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        'parsed_answer = Replace(parsed_answer, "E", "") 'remove => from returned string
        dbl_answer = parsed_answer

        Form1.MeasVal14.SelectAll()
        Form1.MeasVal14.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType14.Text = "Test30 (User OutPut 1)" ' display test desription
        Delay(500)
        'txt = Form1.switchPort.ReadExisting
        'Delay(1200)
        dbl_answer = parsed_answer
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal14.SelectAll()
            Form1.MeasVal14.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 30 fails (Relay K3)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal14.SelectedText = dbl_answer
            fileWrite("Test 30 FAIL (Relay K3)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal14.SelectedText = dbl_answer
            fileWrite("Test 30 PASS (Relay K3)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test30A()
        failFlag = 0
        Form1.station.UOUT.Ports(0).Value = True ' pulled up output goes hi port 0
        Delay(200)
        Form1.station.UOUT.Ports(1).Value = True ' pulled up output goes lo port 1
        Form1.station.UOUT.Ports(2).Value = True ' pulled up output goes lo port 2
        Form1.station.UOUT.Ports(3).Value = True ' pulled up output goes lo port 3
        Form1.station.UOUT.Ports(4).Value = True ' pulled up output goes lo port 4
        Form1.station.UOUT.Ports(5).Value = True ' pulled up output goes lo port 5
        Form1.station.UOUT.Ports(7).Value = True ' pulled up output goes lo port 7
        Form1.station.UOUT.SendSetup()
        Delay(1800)

        Form1.station.UOUT.RequestStatus()
        Delay(1000)


        Form1.dmmPort.DiscardInBuffer()
        Delay(200)
        Form1.dmmPort.DiscardOutBuffer()
        Delay(200)
        Form1.switchPort.Write("AW0001" & vbCrLf) '
        Delay(600)
        Form1.switchPort.Write("BW0004" & vbCrLf) '
        HighLimit(1) = 5
        LoLimit(1) = 0.2
        Form1.LoLimit14.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit14.Text = HighLimit(1)   ' Display lolimit in textbox 1

        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("VAL1?" & vbCr)  ' Rate == medium
        Delay(1500)
        answer = Form1.dmmPort.ReadExisting
        Delay(500)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "+", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "!>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        'parsed_answer = Replace(parsed_answer, "E", "") 'remove => from returned string
        dbl_answer = parsed_answer

        Form1.MeasVal14.SelectAll()
        Form1.MeasVal14.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType14.Text = "Test30A (User OutPut 1)" ' display test desription
        Delay(500)
        '
        'txt = Form1.switchPort.ReadExisting
        'Delay(1200)
        'dbl_answer = parsed_answer
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal14.SelectAll()
            Form1.MeasVal14.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 30A fails (Relay K3)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal14.SelectedText = dbl_answer
            fileWrite("Test 30A FAIL (Relay K3)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal14.SelectedText = dbl_answer
            fileWrite("Test 30A PASS (Relay K3)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test31()


        failFlag = 0
        'Dim digitalAnswer
        'Form1.station.UOUT.PortByte = &HFE
        'Form1.station.UOUT.Ports(0).Value = False ' pulled up output goes hi port 0
        Form1.station.UOUT.Ports(0).Value = True ' pulled up output goes hi port 0
        Delay(100)
        Form1.station.UOUT.Ports(1).Value = False ' pulled up output goes lo port 1
        Delay(100)
        Form1.station.UOUT.Ports(2).Value = True ' pulled up output goes lo port 2
        Form1.station.UOUT.Ports(3).Value = True ' pulled up output goes lo port 3
        Form1.station.UOUT.Ports(4).Value = True ' pulled up output goes lo port 4
        Form1.station.UOUT.Ports(5).Value = True ' pulled up output goes lo port 5
        Form1.station.UOUT.Ports(6).Value = True ' pulled up output goes lo port 6
        Form1.station.UOUT.Ports(7).Value = True ' pulled up output goes lo port 7

        Form1.station.UOUT.SendSetup()
        Delay(1800)

        Form1.station.UOUT.RequestStatus()
        Delay(1000)

        Form1.dmmPort.DiscardInBuffer()
        Delay(100)
        Form1.dmmPort.DiscardOutBuffer()
        Delay(100)
        Form1.switchPort.Write("AW0002" & vbCrLf) ' 50 pin dsub
        Delay(600)
        Form1.switchPort.Write("BW0020" & vbCrLf) ' 50 pin dsub
        HighLimit(1) = 5
        LoLimit(1) = 0.2
        Form1.LoLimit15.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit15.Text = HighLimit(1)   ' Display lolimit in textbox 1

        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("VAL1?" & vbCr)  ' Rate == medium
        Delay(1500)
        answer = Form1.dmmPort.ReadExisting
        Delay(500)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "+", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "!>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        'parsed_answer = Replace(parsed_answer, "E", "") 'remove => from returned string
        dbl_answer = parsed_answer

        Form1.MeasVal15.SelectAll()
        Form1.MeasVal15.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType15.Text = "Test31 (User OutPut 2)" ' display test desription
        Delay(500)
        'Delay(1200)
        'dbl_answer = parsed_answer
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal15.SelectAll()
            Form1.MeasVal15.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 31 fails (Relay K4)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal15.SelectedText = dbl_answer
            fileWrite("Test 31 FAIL (Relay K4)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal15.SelectedText = dbl_answer
            fileWrite("Test 31 PASS (Relay K4)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test31A()


        failFlag = 0
        'Dim digitalAnswer
        'Form1.station.UOUT.PortByte = &HFE
        'Form1.station.UOUT.Ports(0).Value = False ' pulled up output goes hi port 0
        Form1.station.UOUT.Ports(0).Value = True ' pulled up output goes hi port 0
        Delay(200)
        Form1.station.UOUT.Ports(1).Value = True ' pulled up output goes lo port 1
        Delay(200)
        Form1.station.UOUT.Ports(2).Value = True ' pulled up output goes lo port 2
        Form1.station.UOUT.Ports(3).Value = True ' pulled up output goes lo port 3
        Form1.station.UOUT.Ports(4).Value = True ' pulled up output goes lo port 4
        Form1.station.UOUT.Ports(5).Value = True ' pulled up output goes lo port 5
        Form1.station.UOUT.Ports(7).Value = True ' pulled up output goes lo port 7
        Form1.station.UOUT.SendSetup()
        Delay(1800)

        Form1.station.UOUT.RequestStatus()
        Delay(1000)


        Form1.dmmPort.DiscardInBuffer()
        Delay(100)
        Form1.dmmPort.DiscardOutBuffer()
        Delay(100)
        Form1.switchPort.Write("AW0002" & vbCrLf) '
        Delay(600)
        Form1.switchPort.Write("BW0010" & vbCrLf) '
        HighLimit(1) = 5
        LoLimit(1) = 0.2
        Form1.LoLimit15.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit15.Text = HighLimit(1)   ' Display lolimit in textbox 1

        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("VAL1?" & vbCr)  ' Rate == medium
        Delay(1500)
        answer = Form1.dmmPort.ReadExisting
        Delay(500)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "+", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "!>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        'parsed_answer = Replace(parsed_answer, "E", "") 'remove => from returned string
        dbl_answer = parsed_answer

        Form1.MeasVal15.SelectAll()
        Form1.MeasVal15.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType15.Text = "Test31A (User OutPut 2)" ' display test desription
        Delay(500)
        'Delay(1200)
        'dbl_answer = parsed_answer
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal15.SelectAll()
            Form1.MeasVal15.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 31A fails (Relay K4)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal15.SelectedText = dbl_answer
            fileWrite("Test 31A FAIL (Relay K4)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal15.SelectedText = dbl_answer
            fileWrite("Test 31A PASS (Relay K4)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test32()


        failFlag = 0
        'Dim digitalAnswer
        'Form1.station.UOUT.PortByte = &HFE
        ' Form1.station.UOUT.Ports(0).Value = False ' pulled up output goes hi port 0
        Form1.station.UOUT.Ports(0).Value = True ' pulled up output goes hi port 0
        Delay(100)
        Form1.station.UOUT.Ports(1).Value = True ' pulled up output goes lo port 1
        Form1.station.UOUT.Ports(2).Value = False ' pulled up output goes lo port 2
        Delay(100)
        Form1.station.UOUT.Ports(3).Value = True ' pulled up output goes lo port 3
        Form1.station.UOUT.Ports(4).Value = True ' pulled up output goes lo port 4
        Form1.station.UOUT.Ports(5).Value = True ' pulled up output goes lo port 5
        Form1.station.UOUT.Ports(6).Value = True ' pulled up output goes lo port 6
        Form1.station.UOUT.Ports(7).Value = True ' pulled up output goes lo port 7

        Form1.station.UOUT.SendSetup()
        Delay(1800)

        Form1.station.UOUT.RequestStatus()
        Delay(1000)

        Form1.dmmPort.DiscardInBuffer()
        Delay(100)
        Form1.dmmPort.DiscardOutBuffer()
        Delay(100)
        Form1.switchPort.Write("AW0004" & vbCrLf) 'pin 13 50 pin dsub
        Delay(600)
        Form1.switchPort.Write("BW0080" & vbCrLf) 'pin 31 50 pin dsub
        Delay(300)
        HighLimit(1) = 5
        LoLimit(1) = 0.2
        Form1.LoLimit16.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit16.Text = HighLimit(1)   ' Display lolimit in textbox 1

        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("VAL1?" & vbCr)  ' Rate == medium
        Delay(1500)
        answer = Form1.dmmPort.ReadExisting
        Delay(500)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "+", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "!>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        'parsed_answer = Replace(parsed_answer, "E", "") 'remove => from returned string
        dbl_answer = parsed_answer

        Form1.MeasVal16.SelectAll()
        Form1.MeasVal16.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType16.Text = "Test32 (User OutPut 3)" ' display test desription
        Delay(500)
        '
        'txt = Form1.switchPort.ReadExisting
        'Delay(1200)
        'dbl_answer = parsed_answer
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal16.SelectAll()
            Form1.MeasVal16.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 32 fails (Relay K5)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal16.SelectedText = dbl_answer
            fileWrite("Test 32 FAIL (Relay K5)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal16.SelectedText = dbl_answer
            fileWrite("Test 32 PASS (Relay K5)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test32A()
        failFlag = 0
        'Dim digitalAnswer
        'Form1.station.UOUT.PortByte = &HFE
        'Form1.station.UOUT.Ports(0).Value = False ' pulled up output goes hi port 0
        Form1.station.UOUT.Ports(0).Value = True ' pulled up output goes hi port 0
        Form1.station.UOUT.Ports(1).Value = True ' pulled up output goes lo port 1
        Form1.station.UOUT.Ports(2).Value = True ' pulled up output goes lo port 2
        Delay(100)
        Form1.station.UOUT.Ports(3).Value = True ' pulled up output goes lo port 3
        Form1.station.UOUT.Ports(4).Value = True ' pulled up output goes lo port 4
        Form1.station.UOUT.Ports(5).Value = True ' pulled up output goes lo port 5
        Form1.station.UOUT.Ports(7).Value = True ' pulled up output goes lo port 7
        Form1.station.UOUT.SendSetup()
        Delay(1800)

        Form1.station.UOUT.RequestStatus()
        Delay(1000)


        Form1.dmmPort.DiscardInBuffer()
        Delay(100)
        Form1.dmmPort.DiscardOutBuffer()
        Delay(100)
        Form1.switchPort.Write("AW0004" & vbCrLf) '
        Delay(600)
        Form1.switchPort.Write("BW0040" & vbCrLf) '
        Delay(300)
        HighLimit(1) = 5
        LoLimit(1) = 0.2
        Form1.LoLimit16.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit16.Text = HighLimit(1)   ' Display lolimit in textbox 1

        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("VAL1?" & vbCr)  ' Rate == medium
        Delay(1500)
        answer = Form1.dmmPort.ReadExisting
        Delay(500)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "+", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "!>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        'parsed_answer = Replace(parsed_answer, "E", "") 'remove => from returned string
        dbl_answer = parsed_answer

        Form1.MeasVal16.SelectAll()
        Form1.MeasVal16.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType16.Text = "Test32A (User OutPut 3)" ' display test desription
        Delay(500)

        'txt = Form1.switchPort.ReadExisting
        'Delay(1200)
        'dbl_answer = parsed_answer
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal16.SelectAll()
            Form1.MeasVal16.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 32A fails (Relay K5)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal16.SelectedText = dbl_answer
            fileWrite("Test 32A FAIL (Relay K5)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal16.SelectedText = dbl_answer
            fileWrite("Test 32A PASS (Relay K5)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test33()
        failFlag = 0
        'Dim digitalAnswer
        'Form1.station.UOUT.PortByte = &HFE
        Form1.station.UOUT.Ports(0).Value = True ' pulled up output goes hi port 0
        'Form1.station.UOUT.Ports(0).Value = True ' pulled up output goes hi port 0
        Form1.station.UOUT.Ports(1).Value = True ' pulled up output goes lo port 1
        Form1.station.UOUT.Ports(2).Value = True ' pulled up output goes lo port 2
        Form1.station.UOUT.Ports(3).Value = False ' pulled up output goes lo port 3
        Delay(100)
        Form1.station.UOUT.Ports(4).Value = True ' pulled up output goes lo port 4
        Form1.station.UOUT.Ports(5).Value = True ' pulled up output goes lo port 5
        Form1.station.UOUT.Ports(6).Value = True ' pulled up output goes lo port 6
        Form1.station.UOUT.Ports(7).Value = True ' pulled up output goes lo port 7

        Form1.station.UOUT.SendSetup()
        Delay(1800)

        Form1.station.UOUT.RequestStatus()
        Delay(1000)

        Form1.dmmPort.DiscardInBuffer()
        Delay(100)
        Form1.dmmPort.DiscardOutBuffer()
        Delay(100)
        Form1.switchPort.Write("AW0008" & vbCrLf) 'pin 13 50 pin dsub
        Delay(600)
        Form1.switchPort.Write("BW0200" & vbCrLf) 'pin 31 50 pin dsub
        Delay(300)
        HighLimit(1) = 5
        LoLimit(1) = 0.2
        Form1.LoLimit11.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit11.Text = HighLimit(1)   ' Display lolimit in textbox 1

        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("VAL1?" & vbCr)  ' Rate == medium
        Delay(1500)
        answer = Form1.dmmPort.ReadExisting
        Delay(500)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "+", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "!>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        'parsed_answer = Replace(parsed_answer, "E", "") 'remove => from returned string
        dbl_answer = parsed_answer

        Form1.MeasVal11.SelectAll()
        Form1.MeasVal11.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType11.Text = "Test33 (User OutPut 4)" ' display test desription
        Delay(500)

        'txt = Form1.switchPort.ReadExisting
        'Delay(1200)
        'dbl_answer = parsed_answer
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal11.SelectAll()
            Form1.MeasVal11.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 33 fails (Relay K6)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal11.SelectedText = dbl_answer
            fileWrite("Test 33 FAIL (Relay K6)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal11.SelectedText = dbl_answer
            fileWrite("Test 33 PASS (Relay K6)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test33A()
        failFlag = 0
        'Dim digitalAnswer
        'Form1.station.UOUT.PortByte = &HFE
        'Form1.station.UOUT.Ports(0).Value = False ' pulled up output goes hi port 0
        Form1.dmmPort.DiscardInBuffer()
        Delay(100)
        Form1.dmmPort.DiscardOutBuffer()
        Delay(100)
        Form1.station.UOUT.Ports(0).Value = True ' pulled up output goes hi port 0
        Delay(200)
        Form1.station.UOUT.Ports(1).Value = True ' pulled up output goes lo port 1
        Form1.station.UOUT.Ports(2).Value = True ' pulled up output goes lo port 2
        Form1.station.UOUT.Ports(3).Value = True ' pulled up output goes lo port 3
        Delay(100)
        Form1.station.UOUT.Ports(4).Value = True ' pulled up output goes lo port 4
        Form1.station.UOUT.Ports(5).Value = True ' pulled up output goes lo port 5
        Form1.station.UOUT.Ports(7).Value = True ' pulled up output goes lo port 7
        Form1.station.UOUT.SendSetup()
        Delay(1800)

        Form1.station.UOUT.RequestStatus()
        Delay(1000)


        Form1.dmmPort.DiscardInBuffer()
        Delay(100)
        Form1.dmmPort.DiscardOutBuffer()
        Delay(100)
        Form1.switchPort.Write("AW0008" & vbCrLf) '
        Delay(600)
        Form1.switchPort.Write("BW0100" & vbCrLf) '
        Delay(300)
        HighLimit(1) = 5
        LoLimit(1) = 0.2
        Form1.LoLimit11.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit11.Text = HighLimit(1)   ' Display lolimit in textbox 1

        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("VAL1?" & vbCr)  ' Rate == medium
        Delay(1500)
        answer = Form1.dmmPort.ReadExisting
        Delay(500)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "+", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "!>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        'parsed_answer = Replace(parsed_answer, "E", "") 'remove => from returned string
        dbl_answer = parsed_answer

        Form1.MeasVal11.SelectAll()
        Form1.MeasVal11.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType11.Text = "Test33A (User OutPut 4)" ' display test desription
        Delay(500)

        'txt = Form1.switchPort.ReadExisting
        'Delay(1200)
        'dbl_answer = parsed_answer
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal11.SelectAll()
            Form1.MeasVal11.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 33A fails (Relay K6)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal11.SelectedText = dbl_answer
            fileWrite("Test 33A FAIL (Relay K6)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal11.SelectedText = dbl_answer
            fileWrite("Test 33A PASS (Relay K6)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test34()
        failFlag = 0
        'Dim digitalAnswer
        'Form1.station.UOUT.PortByte = &HFE
        Form1.station.UOUT.Ports(0).Value = True ' pulled up output goes hi port 0
        'Form1.station.UOUT.Ports(0).Value = True ' pulled up output goes hi port 0
        Delay(100)
        Form1.station.UOUT.Ports(1).Value = True ' pulled up output goes lo port 1
        Form1.station.UOUT.Ports(2).Value = True ' pulled up output goes lo port 2
        Form1.station.UOUT.Ports(3).Value = True ' pulled up output goes lo port 3
        Form1.station.UOUT.Ports(4).Value = False ' pulled up output goes lo port 4
        Delay(100)
        Form1.station.UOUT.Ports(5).Value = True ' pulled up output goes lo port 5
        Form1.station.UOUT.Ports(6).Value = True ' pulled up output goes lo port 6
        Form1.station.UOUT.Ports(7).Value = True ' pulled up output goes lo port 7

        Form1.station.UOUT.SendSetup()
        Delay(1800)

        Form1.station.UOUT.RequestStatus()
        Delay(1000)

        Form1.dmmPort.DiscardInBuffer()
        Delay(100)
        Form1.dmmPort.DiscardOutBuffer()
        Delay(100)
        Form1.switchPort.Write("AW0010" & vbCrLf) 'pin 13 50 pin dsub
        Delay(600)
        Form1.switchPort.Write("BW0800" & vbCrLf) 'pin 31 50 pin dsub
        Delay(300)
        HighLimit(1) = 5
        LoLimit(1) = 0.2
        Form1.LoLimit12.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit12.Text = HighLimit(1)   ' Display lolimit in textbox 1

        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("VAL1?" & vbCr)  ' Rate == medium
        Delay(1500)
        answer = Form1.dmmPort.ReadExisting
        Delay(500)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "+", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "!>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        'parsed_answer = Replace(parsed_answer, "E", "") 'remove => from returned string
        dbl_answer = parsed_answer

        Form1.MeasVal12.SelectAll()
        Form1.MeasVal12.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType12.Text = "Test34 (User OutPut 5)" ' display test desription
        Delay(500)
        '
        'txt = Form1.switchPort.ReadExisting
        'Delay(1200)
        'dbl_answer = parsed_answer
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal12.SelectAll()
            Form1.MeasVal12.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 34 fails (Relay K7)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal12.SelectedText = dbl_answer
            fileWrite("Test 34 FAIL (Relay K7)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal12.SelectedText = dbl_answer
            fileWrite("Test 34 PASS (Relay K7)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test34A()
        failFlag = 0
        Form1.station.UOUT.Ports(0).Value = True ' pulled up output goes hi port 0
        Delay(200)
        Form1.station.UOUT.Ports(1).Value = True ' pulled up output goes lo port 1
        Form1.station.UOUT.Ports(2).Value = True ' pulled up output goes lo port 2
        Form1.station.UOUT.Ports(3).Value = True ' pulled up output goes lo port 3
        Form1.station.UOUT.Ports(4).Value = True ' pulled up output goes lo port 4
        Delay(100)
        Form1.station.UOUT.Ports(5).Value = True ' pulled up output goes lo port 5
        Form1.station.UOUT.Ports(6).Value = True ' pulled up output goes lo port 6
        Form1.station.UOUT.Ports(7).Value = True ' pulled up output goes lo port 7
        Form1.station.UOUT.SendSetup()
        Delay(1800)

        Form1.station.UOUT.RequestStatus()
        Delay(1000)


        Form1.dmmPort.DiscardInBuffer()
        Delay(100)
        Form1.dmmPort.DiscardOutBuffer()
        Delay(100)
        Form1.switchPort.Write("AW0010" & vbCrLf) '
        Delay(600)
        Form1.switchPort.Write("BW0400" & vbCrLf) '
        Delay(300)
        HighLimit(1) = 5
        LoLimit(1) = 0.2
        Form1.LoLimit12.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit12.Text = HighLimit(1)   ' Display lolimit in textbox 1

        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("VAL1?" & vbCr)  ' Rate == medium
        Delay(1500)
        answer = Form1.dmmPort.ReadExisting
        Delay(500)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "+", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "!>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        'parsed_answer = Replace(parsed_answer, "E", "") 'remove => from returned string
        dbl_answer = parsed_answer

        Form1.MeasVal12.SelectAll()
        Form1.MeasVal12.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType12.Text = "Test34A (User OutPut 5)" ' display test desription
        Delay(500)
        '
        'txt = Form1.switchPort.ReadExisting
        'Delay(1200)
        'dbl_answer = parsed_answer
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal12.SelectAll()
            Form1.MeasVal12.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 34A fails (Relay K7)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal12.SelectedText = dbl_answer
            fileWrite("Test 34A FAIL (Relay K7)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal12.SelectedText = dbl_answer
            fileWrite("Test 34A PASS (Relay K7)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test35()
        failFlag = 0
        Form1.station.UOUT.Ports(0).Value = True ' pulled up output goes hi port 0
        'Form1.station.UOUT.Ports(0).Value = True ' pulled up output goes hi port 0
        Form1.station.UOUT.Ports(1).Value = True ' pulled up output goes lo port 1
        Form1.station.UOUT.Ports(2).Value = True ' pulled up output goes lo port 2
        Form1.station.UOUT.Ports(3).Value = True ' pulled up output goes lo port 3
        Form1.station.UOUT.Ports(4).Value = True ' pulled up output goes lo port 4
        Form1.station.UOUT.Ports(5).Value = False ' pulled up output goes lo port 5
        Delay(100)
        Form1.station.UOUT.Ports(6).Value = True ' pulled up output goes lo port 6
        Form1.station.UOUT.Ports(7).Value = True ' pulled up output goes lo port 7

        Form1.station.UOUT.SendSetup()
        Delay(1800)

        Form1.station.UOUT.RequestStatus()
        Delay(1000)

        Form1.dmmPort.DiscardInBuffer()
        Delay(100)
        Form1.dmmPort.DiscardOutBuffer()
        Delay(100)
        Form1.switchPort.Write("AW0020" & vbCrLf) 'pin 13 50 pin dsub
        Delay(600)
        Form1.switchPort.Write("BW2000" & vbCrLf) 'pin 31 50 pin dsub
        Delay(300)
        HighLimit(1) = 5
        LoLimit(1) = 0.2
        Form1.LoLimit13.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit13.Text = HighLimit(1)   ' Display lolimit in textbox 1

        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("VAL1?" & vbCr)  ' Rate == medium
        Delay(1500)
        answer = Form1.dmmPort.ReadExisting
        Delay(500)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "+", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "!>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        'parsed_answer = Replace(parsed_answer, "E", "") 'remove => from returned string
        dbl_answer = parsed_answer

        Form1.MeasVal13.SelectAll()
        Form1.MeasVal13.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType13.Text = "Test35 (User OutPut 7)" ' display test desription
        Delay(500)

        'txt = Form1.switchPort.ReadExisting
        'Delay(1200)
        'dbl_answer = parsed_answer
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal13.SelectAll()
            Form1.MeasVal13.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 35 fails (Relay K8)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal13.SelectedText = dbl_answer
            fileWrite("Test 35 FAIL (Relay K8)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal13.SelectedText = dbl_answer
            fileWrite("Test 35 PASS (Relay K8)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test35A()
        failFlag = 0
        Form1.station.UOUT.Ports(0).Value = True ' pulled up output goes hi port 0
        Delay(200)
        Form1.station.UOUT.Ports(1).Value = True ' pulled up output goes lo port 1
        Form1.station.UOUT.Ports(2).Value = True ' pulled up output goes lo port 2
        Form1.station.UOUT.Ports(3).Value = True ' pulled up output goes lo port 3
        Form1.station.UOUT.Ports(4).Value = True ' pulled up output goes lo port 4
        Delay(100)
        Form1.station.UOUT.Ports(5).Value = True ' pulled up output goes lo port 5
        Form1.station.UOUT.Ports(6).Value = True ' pulled up output goes lo port 6
        Form1.station.UOUT.Ports(7).Value = True ' pulled up output goes lo port 7
        Form1.station.UOUT.SendSetup()
        Delay(1800)

        Form1.station.UOUT.RequestStatus()
        Delay(1000)


        Form1.dmmPort.DiscardInBuffer()
        Delay(100)
        Form1.dmmPort.DiscardOutBuffer()
        Delay(100)
        Form1.switchPort.Write("AW0020" & vbCrLf) '
        Delay(600)
        Form1.switchPort.Write("BW1000" & vbCrLf) '
        Delay(300)
        HighLimit(1) = 5
        LoLimit(1) = 0.2
        Form1.LoLimit14.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit14.Text = HighLimit(1)   ' Display lolimit in textbox 1

        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("VAL1?" & vbCr)  ' Rate == medium
        Delay(1500)
        answer = Form1.dmmPort.ReadExisting
        Delay(500)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "+", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "!>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        'parsed_answer = Replace(parsed_answer, "E", "") 'remove => from returned string
        dbl_answer = parsed_answer

        Form1.MeasVal13.SelectAll()
        Form1.MeasVal13.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType13.Text = "Test35A (User OutPut 6)" ' display test desription
        Delay(500)

        'txt = Form1.switchPort.ReadExisting
        'Delay(1200)
        'dbl_answer = parsed_answer
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal13.SelectAll()
            Form1.MeasVal13.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 35A fails (Relay K8)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal13.SelectedText = dbl_answer
            fileWrite("Test 35A FAIL (Relay K8)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal13.SelectedText = dbl_answer
            fileWrite("Test 35A PASS (Relay K8)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test36()
        failFlag = 0
        Form1.station.UOUT.Ports(0).Value = True ' pulled up output goes hi port 0
        'Form1.station.UOUT.Ports(0).Value = True ' pulled up output goes hi port 0
        Form1.station.UOUT.Ports(1).Value = True ' pulled up output goes lo port 1
        Form1.station.UOUT.Ports(2).Value = True ' pulled up output goes lo port 2
        Form1.station.UOUT.Ports(3).Value = True ' pulled up output goes lo port 3
        Form1.station.UOUT.Ports(4).Value = True ' pulled up output goes lo port 4
        Form1.station.UOUT.Ports(5).Value = True ' pulled up output goes lo port 5
        Delay(100)
        Form1.station.UOUT.Ports(6).Value = False ' pulled up output goes lo port 6
        Form1.station.UOUT.Ports(7).Value = True ' pulled up output goes lo port 7

        Form1.station.UOUT.SendSetup()
        Delay(1800)

        Form1.station.UOUT.RequestStatus()
        Delay(1000)

        Form1.dmmPort.DiscardInBuffer()
        Delay(100)
        Form1.dmmPort.DiscardOutBuffer()
        Delay(100)
        Form1.switchPort.Write("AW0040" & vbCrLf) 'pin 13 50 pin dsub
        Delay(600)
        Form1.switchPort.Write("CW0008" & vbCrLf) 'pin 31 50 pin dsub
        Delay(300)
        HighLimit(1) = 5
        LoLimit(1) = 0.2
        Form1.LoLimit14.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit14.Text = HighLimit(1)   ' Display lolimit in textbox 1

        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("VAL1?" & vbCr)  ' Rate == medium
        Delay(1500)
        answer = Form1.dmmPort.ReadExisting
        Delay(500)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "+", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "!>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        'parsed_answer = Replace(parsed_answer, "E", "") 'remove => from returned string
        dbl_answer = parsed_answer

        Form1.MeasVal14.SelectAll()
        Form1.MeasVal14.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType14.Text = "Test36 (User OutPut 8)" ' display test desription
        Delay(500)

        'txt = Form1.switchPort.ReadExisting
        'Delay(1200)
        'dbl_answer = parsed_answer
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal14.SelectAll()
            Form1.MeasVal14.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 36 fails (Relay K9)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal14.SelectedText = dbl_answer
            fileWrite("Test 36 FAIL (Relay K9)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal14.SelectedText = dbl_answer
            fileWrite("Test 36 PASS (Relay K9)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test36A()


        failFlag = 0
        'Dim digitalAnswer
        'Form1.station.UOUT.PortByte = &HFE
        'Form1.station.UOUT.Ports(0).Value = False ' pulled up output goes hi port 0
        Form1.station.UOUT.Ports(0).Value = True ' pulled up output goes hi port 0
        Form1.station.UOUT.Ports(1).Value = True ' pulled up output goes lo port 1
        Form1.station.UOUT.Ports(2).Value = True ' pulled up output goes lo port 2
        Form1.station.UOUT.Ports(3).Value = True ' pulled up output goes lo port 3
        Form1.station.UOUT.Ports(4).Value = True ' pulled up output goes lo port 4
        Delay(100)
        Form1.station.UOUT.Ports(5).Value = True ' pulled up output goes lo port 5
        Form1.station.UOUT.Ports(6).Value = True ' pulled up output goes lo port 6
        Form1.station.UOUT.Ports(7).Value = True ' pulled up output goes lo port 7
        Form1.station.UOUT.SendSetup()
        Delay(1800)

        Form1.station.UOUT.RequestStatus()
        Delay(1000)


        Form1.dmmPort.DiscardInBuffer()
        Delay(100)
        Form1.dmmPort.DiscardOutBuffer()
        Delay(100)
        Form1.switchPort.Write("AW0040" & vbCrLf) '
        Delay(600)
        Form1.switchPort.Write("CW0001" & vbCrLf) '
        Delay(300)
        HighLimit(1) = 5
        LoLimit(1) = 0.2
        Form1.LoLimit14.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit14.Text = HighLimit(1)   ' Display lolimit in textbox 1

        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("VAL1?" & vbCr)  ' Rate == medium
        Delay(1500)
        answer = Form1.dmmPort.ReadExisting
        Delay(500)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "+", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "!>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        'parsed_answer = Replace(parsed_answer, "E", "") 'remove => from returned string
        dbl_answer = parsed_answer

        Form1.MeasVal14.SelectAll()
        Form1.MeasVal14.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType14.Text = "Test36A (User OutPut 8)" ' display test desription
        Delay(500)

        'txt = Form1.switchPort.ReadExisting
        'Delay(1200)
        'dbl_answer = parsed_answer
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal14.SelectAll()
            Form1.MeasVal14.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 36A fails (Relay K9)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal14.SelectedText = dbl_answer
            fileWrite("Test 36A FAIL (Relay K9)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal14.SelectedText = dbl_answer
            fileWrite("Test 36A PASS (Relay K9)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test37()


        failFlag = 0
        'Dim digitalAnswer
        Form1.station.UOUT.PortByte = &HFE
        Form1.station.UOUT.Ports(0).Value = True ' pulled up output goes hi port 0
        'Form1.station.UOUT.Ports(0).Value = True ' pulled up output goes hi port 0
        Form1.station.UOUT.Ports(1).Value = True ' pulled up output goes lo port 1
        Form1.station.UOUT.Ports(2).Value = True ' pulled up output goes lo port 2
        Form1.station.UOUT.Ports(3).Value = True ' pulled up output goes lo port 3
        Form1.station.UOUT.Ports(4).Value = True ' pulled up output goes lo port 4
        Form1.station.UOUT.Ports(5).Value = True ' pulled up output goes lo port 5
        Delay(100)
        Form1.station.UOUT.Ports(6).Value = True ' pulled up output goes lo port 6
        Form1.station.UOUT.Ports(7).Value = False ' pulled up output goes lo port 7

        Form1.station.UOUT.SendSetup()
        Delay(1800)

        Form1.station.UOUT.RequestStatus()
        Delay(1000)

        Form1.dmmPort.DiscardInBuffer()
        Delay(100)
        Form1.dmmPort.DiscardOutBuffer()
        Delay(100)
        Form1.switchPort.Write("AW0080" & vbCrLf) '
        Delay(600)
        Form1.switchPort.Write("CW0020" & vbCrLf) '
        Delay(300)
        HighLimit(1) = 5
        LoLimit(1) = 0.2
        Form1.LoLimit15.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit15.Text = HighLimit(1)   ' Display lolimit in textbox 1

        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("VAL1?" & vbCr)  ' Rate == medium
        Delay(1500)
        answer = Form1.dmmPort.ReadExisting
        Delay(500)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "+", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "!>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        'parsed_answer = Replace(parsed_answer, "E", "") 'remove => from returned string
        dbl_answer = parsed_answer

        Form1.MeasVal15.SelectAll()
        Form1.MeasVal15.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType15.Text = "Test37 (User OutPut 8)" ' display test desription
        Delay(500)
        '
        'txt = Form1.switchPort.ReadExisting
        'Delay(1200)
        'dbl_answer = parsed_answer
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal15.SelectAll()
            Form1.MeasVal15.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 37 fails (Relay K10)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal15.SelectedText = dbl_answer
            fileWrite("Test 37 FAIL (Relay K10)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal15.SelectedText = dbl_answer
            fileWrite("Test 37 PASS (Relay K10)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test37A()


        failFlag = 0
        'Dim digitalAnswer
        'Form1.station.UOUT.PortByte = &HFE
        'Form1.station.UOUT.Ports(0).Value = False ' pulled up output goes hi port 0
        Form1.station.UOUT.Ports(0).Value = True ' pulled up output goes hi port 0
        Delay(200)
        Form1.station.UOUT.Ports(1).Value = True ' pulled up output goes lo port 1
        Form1.station.UOUT.Ports(2).Value = True ' pulled up output goes lo port 2
        Form1.station.UOUT.Ports(3).Value = True ' pulled up output goes lo port 3
        Form1.station.UOUT.Ports(4).Value = True ' pulled up output goes lo port 4
        Delay(100)
        Form1.station.UOUT.Ports(5).Value = True ' pulled up output goes lo port 5
        Form1.station.UOUT.Ports(6).Value = True ' pulled up output goes lo port 6
        Form1.station.UOUT.Ports(7).Value = True ' pulled up output goes lo port 7
        Form1.station.UOUT.SendSetup()
        Delay(1800)

        Form1.station.UOUT.RequestStatus()
        Delay(1000)


        Form1.dmmPort.DiscardInBuffer()
        Delay(100)
        Form1.dmmPort.DiscardOutBuffer()
        Delay(100)
        Form1.switchPort.Write("AW0080" & vbCrLf) '
        Delay(600)
        Form1.switchPort.Write("CW0010" & vbCrLf) '
        HighLimit(1) = 5
        LoLimit(1) = 0.2
        Form1.LoLimit15.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit15.Text = HighLimit(1)   ' Display lolimit in textbox 1

        Form1.dmmPort.Write("ohms" & vbCrLf) 'Place DMM in ohms function
        Form1.dmmPort.Write("FIXED" & vbCr)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCr)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Form1.dmmPort.Write("VAL1?" & vbCr)  ' Rate == medium
        Delay(1500)
        answer = Form1.dmmPort.ReadExisting
        Delay(500)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "+", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "!>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        'parsed_answer = Replace(parsed_answer, "E", "") 'remove => from returned string
        dbl_answer = parsed_answer

        Form1.MeasVal15.SelectAll()
        Form1.MeasVal15.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType15.Text = "Test37A (User OutPut 8)" ' display test desription
        Delay(500)
        '
        'txt = Form1.switchPort.ReadExisting
        'Delay(1200)
        'dbl_answer = parsed_answer
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal15.SelectAll()
            Form1.MeasVal15.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 37A fails (Relay K9)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal15.SelectedText = dbl_answer
            fileWrite("Test 37A FAIL (Relay K9)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal15.SelectedText = dbl_answer
            fileWrite("Test 37A PASS (Relay K8)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test38() 'user serial port
        Dim res
        Dim str1 As String
        Dim str2 As String
        failFlag = 0
        res = 1
        'Form1.s = "101010"
        str1 = "where are you"
        Form1.station.USER.SendData(str1)
        Delay(1000)
        'Form1.station.RequestAllStatus()
        'str2 = Left(Form1.s, 5)
        'Form1.s = (e.str)
        Delay(500)
        'res = String.Compare(str1, str2) 'returns a zero if they compare 1 if they don't
        res = String.Compare(str1, Form1.s) 'returns a zero if they compare 1 if they don't
        'Form1.s = Replace(Form1.s, " ", "")
        Debug.Print("Return String = ", Form1.s)
        Form1.MeasVal6.SelectAll()
        Form1.MeasVal6.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType6.Text = "Test38 (User Serial Port) " & Form1.s ' display test desription
        HighLimit(1) = 0
        LoLimit(1) = 0
        Form1.Lolimit6.Text = LoLimit(1)     ' Display lolimit in textbox
        Form1.Highlimit6.Text = HighLimit(1)   ' Display highlimit in textbox
        Delay(300)
        str2 = "000000"
        Form1.s = "000000"
        If res > HighLimit(1) Or res < LoLimit(1) Then
            Form1.MeasVal6.SelectAll()
            Form1.MeasVal6.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 38 fails " & str2 + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal6.SelectedText = res
            fileWrite("Test 38 FAIL ", HighLimit(1), res, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal6.SelectedText = res
            fileWrite("Test 38 PASS" & str2, HighLimit(1), res, LoLimit(1))
        End If
        Debug.Print("compare return = " & res)
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test39()  'GPSLock
        failFlag = 0
        Dim i As Integer
        Form1.lblPleaseWait.Visible = True
        Form1.lblPleaseWait.Text = "Wait while GPS tries to Lock On"
        Form1.MeasVal7.SelectAll()
        Form1.MeasVal7.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType7.Text = "Test39 GPS Locked"  ' display test desription
        HighLimit(1) = 2
        LoLimit(1) = 1
        Form1.Lolimit7.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit7.Text = HighLimit(1)   ' Display lolimit in textbox 1
        For i = 1 To 40
            'Form1.TestMessage.AppendText("GPS Locked " & Form1.GPSLock & vbCrLf)
            Delay(1000)
            If Form1.GPSLock = 1 Then
                Form1.reset = 0
                Form1.lblPleaseWait.Visible = True
                Form1.lblPleaseWait.Text = "GPS Lock On Test PASS"
                'Application.DoEvents()
                Exit For
            End If
            Form1.lblPleaseWait.Visible = True
            If i = 40 Then
                Form1.lblPleaseWait.Text = "GPS did not lock test failed"
                Exit For
            End If
        Next
        'Delay(100000) 'wait 120 seconds for GPS to lock on
        Delay(500)
        Debug.Print("GPS Locked" & Form1.GPSLock)
        dbl_answer = Form1.GPSLock
        If Form1.GPSLock > HighLimit(1) Or Form1.GPSLock < LoLimit(1) Then
            Form1.MeasVal7.SelectAll()
            Form1.MeasVal7.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 39 fails (GPS did not Lock)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal7.SelectedText = dbl_answer
            fileWrite("Test 39 FAIL (GPS did not Lock)", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal7.SelectedText = Form1.GPSLock
            fileWrite("Test 39 PASS (GPS has Lock)", HighLimit(1), Form1.GPSLock, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If

    End Sub
    Sub Test40()  'RSSI
        failFlag = 0
        Form1.MeasVal8.SelectAll()
        Form1.MeasVal8.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType8.Text = "RSSI Signal Strength"  ' display test desription
        Form1.station.RequestAllStatus()
        HighLimit(1) = -65
        LoLimit(1) = -105
        Form1.Lolimit8.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit8.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Debug.Print("RSSI Signal Strength" & Form1.dbl_RSSI)
        If Form1.dbl_RSSI > HighLimit(1) Or Form1.dbl_RSSI < LoLimit(1) Then
            Form1.MeasVal8.SelectAll()
            Form1.MeasVal8.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 40 fails (RSSI Signal Strength)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal8.SelectedText = Form1.dbl_RSSI
            fileWrite("Test 40 FAIL (RSSI Signal Strength)", HighLimit(1), Form1.dbl_RSSI, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal8.SelectedText = Form1.dbl_RSSI
            fileWrite("Test 40 PASS (RSSI Signal Strength)", HighLimit(1), Form1.dbl_RSSI, LoLimit(1))
        End If

        If Form1.singleBit = 0 Then Test41()
    End Sub
    Sub Test41() 'transPonder latching relay still closed after power cycle
        '        Form1.power = 0
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        'Form1.station.SYS.RelayMode = cSYS.RELAY_MODE.MANUAL
        ' Delay(500)
        ' Form1.station.SYS.SendSetup()
        Delay(1500)
        Form1.station.SYS.RelaySet() 'transponder relay is closed
        'Delay(500)
        'Testend()
        'switchPort.Close()
        'switchPort.Open()
        Delay(2000)
        failFlag = 0
        Form1.reset = 1
        Form1.switchPort.Write("FW0200" & vbCrLf)  ' turn off power to UUT
        Delay(2000) 'power cycle for 2 seconds
        Form1.switchPort.Write("FW0000" + vbCrLf) 'FW0200 Power Supply bit to turn power on (FW0000 is off)
        Delay(200)
        Form1.station.RequestAllSetup()
        Form1.station.RequestAllStatus()
        Delay(3000)
        Form1.switchPort.Write("AW1000" & vbCrLf) 'pin 13 50 pin dsub
        Delay(400)
        Form1.switchPort.Write("CW0004" & vbCrLf) 'pin 31 50 pin dsub
        Delay(500)
        'Form1.switchPort.Close()
        Form1.MeasVal9.SelectAll()
        Form1.MeasVal9.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.dmmPort.Write("ohms" & vbCrLf)
        Delay(100)
        Form1.dmmPort.Write("FIXED" & vbCrLf)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCrLf)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Delay(200)
        Form1.TestType9.Text = "Test41 Transponder On (AW1000:CW0004)" ' display test desription
        HighLimit(1) = 5
        LoLimit(1) = 0.2
        Form1.Lolimit9.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit9.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Form1.dmmPort.Write("VAL1?" & vbCrLf)
        Delay(1500)
        answer = Form1.dmmPort.ReadExisting
        Delay(1000)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        parsed_answer = Replace(parsed_answer, "+1E+9+1E+9", "+1E+9") 'remove spaces from returned string
        'parsed_answer = Replace(parsed_answer, "+1E+9", "+1E+9") 'remove spaces from returned string
        dbl_answer = parsed_answer
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal9.SelectAll()
            Form1.MeasVal9.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 41 fails Transponder didn't stay on" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal9.SelectedText = dbl_answer
            fileWrite("Test 41 FAIL Transponder didn't stay on", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal9.SelectedText = dbl_answer
            fileWrite("Test 41 PASS Transponder didn't stay on", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test42() 'transPonder latching relay still open after power cycle
        '        Form1.power = 0   'set ITS transmitter for 1watt
        'Form1.station.SYS.RelayMode = cSYS.RELAY_MODE.MANUAL
        ' Form1.station.SYS.SendSetup()
        Form1.station.SYS.RelayReset() 'transponder relay is open
        Delay(1000)
        Form1.station.SYS.SendSetup()
        Delay(3000) 'ITS wait 3 seconds
        Form1.switchPort.Write("FW0200" & vbCrLf)  ' turn off power to UUT
        Delay(3000) 'power cycle for 2 seconds
        Form1.portConnect()
        Form1.switchPort.Write("FW0000" & vbCrLf)  ' turn off power to UUT
        Form1.dmmPort.DiscardInBuffer()
        Form1.dmmPort.DiscardOutBuffer()
        'Delay(1000)
        failFlag = 0
        Form1.reset = 1

        'Form1.station.RF.TxPower = cRF.RF_TX_POWER_LEVEL_ENUM.TX_POWER_1W 'get modem ready for test 43
        'Form1.station.RF.SendSetup()
        Form1.station.RequestAllSetup()
        Form1.station.RequestAllStatus()
        Delay(3000)
        'Form1.station.SYS.TransponderMode = cSYS.XPDR_MODE.MANUAL
        'Form1.station.SYS.SendSetup()
        Form1.switchPort.Write("AW1000" & vbCrLf) 'pin 13 50 pin dsub
        Delay(400)
        Form1.switchPort.Write("CW0004" & vbCrLf) 'pin 31 50 pin dsub
        Delay(400)
        'Form1.switchPort.Close()
        Form1.MeasVal10.SelectAll()
        Form1.MeasVal10.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.dmmPort.Write("ohms" & vbCrLf)
        Delay(100)
        Form1.dmmPort.Write("FIXED" & vbCrLf)  'fixed range not auto
        Delay(100)
        Form1.dmmPort.Write("RANGE4" & vbCrLf)  ' range 30k
        Delay(100)
        Form1.dmmPort.Write("RATE M" & vbCr)  ' Rate == medium
        Delay(200)
        Form1.TestType10.Text = "Test42 Transponder stays off (AW1000:CW0004)" ' display test desription
        HighLimit(1) = 9900000000
        LoLimit(1) = 1000000
        Form1.Lolimit10.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.Highlimit10.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Form1.dmmPort.Write("MEAS1?" & vbCrLf)
        Delay(1000)
        answer = Form1.dmmPort.ReadExisting
        Delay(1000)
        parsed_answer = Replace(answer, vbCrLf, "") 'remove vbCrLf from returned string
        parsed_answer = Replace(parsed_answer, "=>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "?>", "") 'remove => from returned string
        parsed_answer = Replace(parsed_answer, "  ", "") 'remove spaces from returned string
        dbl_answer = parsed_answer
        Debug.Print(parsed_answer)
        If dbl_answer > HighLimit(1) Or dbl_answer < LoLimit(1) Then
            Form1.MeasVal10.SelectAll()
            Form1.MeasVal10.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 42 fails Transponder did not stay off" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal10.SelectedText = dbl_answer
            fileWrite("Test 42 FAIL Transponder did not stay off", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal10.SelectedText = dbl_answer
            fileWrite("Test 42 PASS Transponder did not stay off", HighLimit(1), dbl_answer, LoLimit(1))
        End If
        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test43()  'battery current/modem power to 1W
        failFlag = 0
        Form1.MeasVal11.SelectAll()
        Form1.MeasVal11.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType11.Text = "Test43 Battery Current/Modem 1 watt"  ' display test desription
        'Testend()
        'Delay(3000) 'ITS UUT off for 3 seconds
        failFlag = 0
        'Form1.reset = 1
        'Form1.portConnectHiPower() 'Power up with UUT transmitter at 1 watt
        'Delay(1000) 'wait 1 second
        'Form1.station.RequestAllStatus()
        Form1.station.RF.TxPower = cRF.RF_TX_POWER_LEVEL_ENUM.TX_POWER_1W
        'Delay(500)
        Form1.station.RF.SendSetup()
        'Form1.station.SYS.SendSetup()
        Delay(8000) 'delay 3 seconds
        'Form1.station.RequestAllStatus()
        Form1.station.BAT.RequestStatus()
        Delay(500)
        If Form1.batMaDbl < 300 Then Form1.station.BAT.RequestStatus()
        Delay(500)
        If Form1.batMaDbl < 300 Then Form1.station.BAT.RequestStatus()
        Delay(500)
        If Form1.batMaDbl < 300 Then Form1.station.BAT.RequestStatus()
        Delay(500)
        If Form1.batMaDbl < 300 Then
            Form1.station.RF.TxPower = cRF.RF_TX_POWER_LEVEL_ENUM.TX_POWER_1W
            'Delay(500)
            Form1.station.RF.SendSetup()
            Delay(8000)
            Form1.station.BAT.RequestStatus()
        End If
        'Delay(2000)
        If Form1.batMaDbl < 300 Then
            Form1.station.RF.TxPower = cRF.RF_TX_POWER_LEVEL_ENUM.TX_POWER_1W
            Delay(500)
            Form1.station.RF.SendSetup()
            'Form1.station.SYS.SendSetup()
            Delay(12000) 'delay 3 seconds
            'Form1.station.RequestAllSetup()
            'Form1.station.RequestAllStatus()
            Form1.station.BAT.RequestStatus()
            Delay(1000)
        End If
        'If Form1.batMa < 300 Then
        '    Form1.station.RF.TxPower = cRF.RF_TX_POWER_LEVEL_ENUM.TX_POWER_1W
        '    Delay(500)
        '    Form1.station.RF.SendSetup()
        '    'Form1.station.RequestAllSetup()
        '    Form1.station.SYS.SendSetup()
        '    Delay(16000) 'delay 3 seconds
        '    'Form1.station.RequestAllStatus()
        '    Form1.station.BAT.RequestStatus()
        '    Delay(1000)
        'End If
        HighLimit(1) = 698
        LoLimit(1) = 335
        Form1.LoLimit11.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit11.Text = HighLimit(1)   ' Display lolimit in textbox 1
        'Form1.batMa = Form1.station.BAT.Current_Max
        Debug.Print("Battery Current" & Form1.batMaDbl)
        If Form1.batMaDbl > HighLimit(1) Or Form1.batMaDbl < LoLimit(1) Then
            Form1.MeasVal11.SelectAll()
            Form1.MeasVal11.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 43 fails (Battery Current/Modem 1 watt)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal11.SelectedText = Form1.batMaDbl
            fileWrite("Test 43 FAIL (Battery Current/Modem 1 watt)", HighLimit(1), Form1.batMa, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal11.SelectedText = Form1.batMaDbl
            fileWrite("Test 43 PASS (Battery Current/Modem 1 watt)", HighLimit(1), Form1.batMa, LoLimit(1))
        End If

        If Form1.stopTest = 1 Then
            Testend()
            'Else
            '    If Form1.singleBit = 0 Then Testend()
        End If
        Test44()
    End Sub
    Sub Test44()  'temperature readout
        'Dim temperature As Integer
        failFlag = 0
        Form1.MeasVal12.SelectAll()
        Form1.MeasVal12.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType12.Text = "Test44 Temperature degrees C (Sensor U4) "  ' display test desription
        'Testend()
        'Delay(3000) 'ITS UUT off for 3 seconds
        failFlag = 0
        Form1.reset = 1
        'Form1.portConnectHiPower() 'Power up with UUT transmitter at 1 watt
        'Form1.station.SYS.SendSetup()
        Delay(3000) 'delay 3000 miliseconds
        'Form1.station.RequestAllSetup()
        'Form1.station.RequestAllStatus()
        'Delay(1000) 'wait 1 second
        Form1.temperature = Form1.station.SYS.BoardTemp
        Delay(1500) 'delay 500 miliseconds
        HighLimit(1) = 30
        LoLimit(1) = 20
        Form1.LoLimit12.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit12.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Debug.Print("Temperature reading" & Form1.temperatureFinal)
        If Form1.temperatureFinal > HighLimit(1) Or Form1.temperatureFinal < LoLimit(1) Then
            Form1.MeasVal12.SelectAll()
            Form1.MeasVal12.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 44 fails (Temperature is not equal to ambient Degrees C)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal12.SelectedText = Form1.temperatureFinal
            fileWrite("Test 44 FAIL (Temperature is not equal to ambient Degrees C)", HighLimit(1), Form1.temperatureFinal, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal12.SelectedText = Form1.temperatureFinal
            fileWrite("Test 44 PASS (Temperature = Ambient Degrees C)", HighLimit(1), Form1.temperatureFinal, LoLimit(1))
        End If

        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test45()  'external modem
        Dim res
        'Dim str1 As String
        'Form1.ExternalModemBox.Text = Form1.extMod
        ' If Form1.extModemPort.IsOpen Then
        'Form1.extModemPort.Close()
        '   End If
        '   Form1.extModemPort.Open()
        Delay(100)
        '  Form1.extModemPort.DiscardInBuffer()
        '  Form1.extModemPort.DiscardOutBuffer()
        failFlag = 0
        Form1.MeasVal13.SelectAll()
        Form1.MeasVal13.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType13.Text = "Test45 External Modem Port "  ' display test desription
        failFlag = 0
        Form1.reset = 1
        Dim Ans As Integer
        Ans = MsgBox("Are There NEMA Strings scrolling in the NEMA String window?", vbYesNo, "Front Page")
        If Ans = vbYes Then
            res = 0
        Else
            res = 1
        End If

        HighLimit(1) = 0
        LoLimit(1) = 0
        Form1.LoLimit13.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit13.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Debug.Print("External Modem Port" & Form1.str1)
        If res > HighLimit(1) Or res < LoLimit(1) Then
            Form1.MeasVal13.SelectAll()
            Form1.MeasVal13.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 45 fails (External Modem port)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal13.SelectedText = res
            fileWrite("Test 45 FAIL (External Modem Port)", HighLimit(1), res, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal13.SelectedText = res
            fileWrite("Test 45 PASS (External Modem Port)", HighLimit(1), res, LoLimit(1))
        End If

        If Form1.stopTest = 1 Then
            Testend()
        End If
    End Sub
    Sub Test46()  'Power LED on
        failFlag = 0
        Dim res
        'Dim str1 As String
        'Form1.ExternalModemBox.Text = Form1.extMod
        ' If Form1.extModemPort.IsOpen Then
        'Form1.extModemPort.Close()
        '   End If
        '   Form1.extModemPort.Open()
        Delay(100)
        '  Form1.extModemPort.DiscardInBuffer()
        '  Form1.extModemPort.DiscardOutBuffer()
        failFlag = 0
        Form1.MeasVal14.SelectAll()
        Form1.MeasVal14.SelectionColor = Color.Black     ' Return display back to pass condition
        Form1.TestType14.Text = "Test46 Power LED "  ' display test desription
        failFlag = 0
        Form1.reset = 1
        Dim Ans As Integer
        Ans = MsgBox("Is the Power/Communications LED ON and Flashing?", vbYesNo, "Front Page")
        If Ans = vbYes Then
            res = 0
        Else
            res = 1
        End If

        HighLimit(1) = 0
        LoLimit(1) = 0
        Form1.LoLimit14.Text = LoLimit(1)     ' Display highlimit in textbox 1
        Form1.HighLimit14.Text = HighLimit(1)   ' Display lolimit in textbox 1
        Debug.Print("External Modem Port" & Form1.str1)
        If res > HighLimit(1) Or res < LoLimit(1) Then
            Form1.MeasVal14.SelectAll()
            Form1.MeasVal14.SelectionColor = Color.Red
            Form1.TestMessage.AppendText("Test 46 fails (LED Flash Test)" + vbCrLf)
            finalFailFlag = 1
            failFlag = 1
            Form1.MeasVal14.SelectedText = res
            fileWrite("Test 46 FAIL (LED Flash Test)", HighLimit(1), res, LoLimit(1))
        End If
        If failFlag = 0 Then
            Form1.MeasVal14.SelectedText = res
            fileWrite("Test 46 PASS (LED Flash Test)", HighLimit(1), res, LoLimit(1))
        End If
        Form1.switchPort.Write("FW0200" & vbCrLf)  ' turn off power to UUT

        If Form1.stopTest = 1 Then
            Testend()
        End If
        If finalFailFlag = 1 Then
            Form1.Pass.Visible = False
            Form1.FAIL.Visible = True
        End If
        If failFlag = 1 Then
            Form1.Pass.Visible = False
            Form1.FAIL.Visible = True
        End If
        'Form1.portDisconnect()
        If (finalFailFlag = 0) And (Form1.finalTest = 0) Then
            Delay(3000)
        End If
        Testend()
    End Sub
    Sub test47()
        Dim rlyStatus As Integer
        Form1.station.UOUT.Ports(0).Value = True ' pulled up output goes hi port 0
        Form1.station.UOUT.Ports(1).Value = True ' pulled up output goes lo port 1
        Form1.station.UOUT.Ports(2).Value = True ' pulled up output goes lo port 2
        Form1.station.UOUT.Ports(3).Value = True ' pulled up output goes lo port 3
        Form1.station.UOUT.Ports(4).Value = True ' pulled up output goes lo port 4
        Form1.station.UOUT.Ports(5).Value = True ' pulled up output goes lo port 5
        Form1.station.UOUT.Ports(6).Value = True ' pulled up output goes lo port 6
        Form1.station.UOUT.Ports(7).Value = True ' pulled up output goes lo port 7
        Form1.station.UOUT.SendSetup()
        Delay(1800)

        Form1.station.UOUT.RequestStatus()
        Delay(1000)
        rlyStatus = Form1.station.UOUT.FaultByte
        If rlyStatus > 0 Then finalFailFlag = 1

        Form1.station.UOUT.Ports(0).Value = False ' pulled up output goes hi port 0
        Form1.station.UOUT.Ports(1).Value = False ' pulled up output goes lo port 1
        Form1.station.UOUT.Ports(2).Value = False ' pulled up output goes lo port 2
        Form1.station.UOUT.Ports(3).Value = False ' pulled up output goes lo port 3
        Form1.station.UOUT.Ports(4).Value = False
        ' pulled up output goes lo port 4
        Delay(100)
        Form1.station.UOUT.Ports(5).Value = False ' pulled up output goes lo port 5
        Form1.station.UOUT.Ports(6).Value = False ' pulled up output goes lo port 6
        Form1.station.UOUT.Ports(7).Value = False ' pulled up output goes lo port 7
        Form1.station.UOUT.SendSetup()
        Delay(1800)

        Form1.station.UOUT.RequestStatus()
        Delay(1000)
        rlyStatus = Form1.station.UOUT.FaultByte
        If rlyStatus > 0 Then
            finalFailFlag = 1
            Form1.TestMessage.AppendText("Test 47 fails (Relay Status Bit)" + vbCrLf)
        End If
    End Sub
    Sub test48()
        Dim axisStatus As Single
        axisStatus = 0
        Form1.TextBox3.Text = ""
        Form1.TextBox4.Text = ""
        Form1.TextBox5.Text = ""
        failFlag = 0
        Form1.station.ACC.SendSetup()
        Delay(1800)

        Form1.station.ACC.RequestStatus()
        Delay(1000)
        axisStatus = Form1.station.ACC.AxisX.g
        Form1.TextBox3.SelectedText = axisStatus
        If axisStatus < 0.2 And axisStatus > -0.2 Then
            failFlag = 0
        Else
            failFlag = 1
            finalFailFlag = 1
        End If

        axisStatus = Form1.station.ACC.AxisY.g
        Form1.TextBox4.SelectedText = axisStatus
        If axisStatus < 0.2 And axisStatus > -0.2 Then
            failFlag = 0
        Else
            failFlag = 1
            finalFailFlag = 1
        End If

        axisStatus = Form1.station.ACC.AxisZ.g
        Form1.TextBox5.SelectedText = axisStatus
        If axisStatus > 0.8 And axisStatus < 1.2 Then
            failFlag = 0
        Else
            failFlag = 1
            finalFailFlag = 1
        End If

        If finalFailFlag = 1 Then
            Form1.TestMessage.AppendText("Test 48 fails (Accelemeter Fails)" + vbCrLf)
        End If


    End Sub

    Sub Testend()
        Form1.reset = 0
        Application.DoEvents()
        Delay(500)
        If failFlag = 1 Then
            Form1.Pass.Visible = False
            Form1.FAIL.Visible = True
        End If
        If finalFailFlag = 0 Then
            Form1.Pass.Visible = True
            Form1.FAIL.Visible = False
        End If
        If finalFailFlag = 1 Then
            Form1.Pass.Visible = False
            Form1.FAIL.Visible = True
        End If
        Try
            Form1.switchPort.Write("FW0200" & vbCrLf)
        Catch ex As Exception
        End Try

        Form1.switchPort.Write("FW0200" & vbCrLf)
        Delay(500)
        Delay(400)
        Form1.StartTest.Enabled = True
        Form1.btnConnect.Enabled = True
        finalFailFlag = 0
    End Sub
End Module