Dim firsthash As Integer = 0
        Dim secondhash As Integer = 0
        Dim prodnum As String
        Dim tempchar As String = ""
        prodnum = IntrolProductNumberTextBox.Text
        '****   FIND THE FIRST HASH ****
        tempchar = prodnum.IndexOf("-")
        firsthash = tempchar
        tempchar = 0
        '****   FIND THE SECOND HASH ****
        tempchar = prodnum.Substring(prodnum.IndexOf("-") + 1).IndexOf("-")
        secondhash = (tempchar + firsthash) + 1
        ' **** POPULATE THE ARRAY WITH THE FIRST SECTION OF MOTOR DATA ****
        section(STACK_LENGTH) = prodnum.Substring(firsthash - 1, 1)
        section(FINISHED_GOOD) = prodnum.Substring(0, 1)
        section(SERVOLOC_SERIES) = prodnum.Substring(1, 2)
        If firsthash > 6 Then
            section(FRAME_SIZE) = prodnum.Substring(3, 3)
        Else
            section(FRAME_SIZE) = prodnum.Substring(3, 2)
        End If
        ' **** POPULATE THE ARRAY WITH THE SECOND SECTION OF MOTOR DATA ****
        section(MOUNTING_OPTION) = prodnum.Substring(secondhash - 1, 1)
        section(VOLTAGE) = prodnum.Substring(secondhash - 2, 1)
        If (secondhash - firsthash) > 5 Then
            section(MOTOR_KE) = prodnum.Substring(firsthash + 1, 3)
        Else
            section(MOTOR_KE) = prodnum.Substring(firsthash + 1, 2)
        End If
        '' **** POPULATE THE ARRAY WITH THE THIRD SECTION OF MOTOR DATA ****
        section(FEEDBACK) = prodnum.Substring(secondhash + 1, 4)
        section(TERMINATION) = prodnum.Substring(secondhash + 5, 1)
        section(BRAKE_OPTION) = prodnum.Substring(secondhash + 6, 1)
        section(OTHER_OPTIONS) = prodnum.Substring(secondhash + 7, 1)