diff --git a/MAXIMUM_Product_Program/MainForm.vb b/MAXIMUM_Product_Program/MainForm.vb
index ed7890f..b8b3ac3 100644
--- a/MAXIMUM_Product_Program/MainForm.vb
+++ b/MAXIMUM_Product_Program/MainForm.vb
@@ -401,7 +401,7 @@ Public Class MainForm
 
     Private Sub FormSetting()
         Const ProgramName As String = "Product Program Ver_"
-        Const VersionNum As String = "2.0.1"
+        Const VersionNum As String = "2.0.2"
 
         Me.Text = ProgramName & VersionNum
         Me.Size = New Size(1920, 1050)
@@ -1108,9 +1108,13 @@ FinishFunc:
                         txbPDNum.Text = SerialNum
                     Else
                         SerialNum = txbPDNum.Text
-                        Dim FrontSetSerial As String = Mid(SerialNum, 7, 3)
-                        Dim BackSetSerial As String = Mid(SerialNum, 10, 3)
-                        ProdCode = BackSetSerial & FrontSetSerial
+                        If SerialNum.Length = oldSearchLength Then      '12자리 시리얼번호
+                            Dim FrontSetSerial As String = Mid(SerialNum, 7, 3)
+                            Dim BackSetSerial As String = Mid(SerialNum, 10, 3)
+                            ProdCode = BackSetSerial & FrontSetSerial
+                        ElseIf SerialNum.Length = newSearchLength Then  '16자리 시리얼번호
+                            ProdCode = Mid(SerialNum, 8, 6)
+                        End If
                     End If
 
                     PrintFunc()