Private Const FINISHED_GOOD As Integer = 0
Private Const SERVOLOC_SERIES As Integer = 1
Private Const FRAME_SIZE As Integer = 2
Private Const STACK_LENGTH As Integer = 3
Private Const MOTOR_KE As Integer = 4
Private Const VOLTAGE As Integer = 5
Private Const MOUNTING_OPTION As Integer = 6
Private Const FEEDBACK As Integer = 7
Private Const TERMINATION As Integer = 8
Private Const BRAKE_OPTION As Integer = 9
Private Const OTHER_OPTIONS As Integer = 10
Dim section(11) As String
Dim list As Single
Dim cost As Single
Dim pricing(11) As Single
Dim counter As Integer
Dim price As Single
Dim normalpart As Boolean