Fix barcode start and end codea

icarda-git · Feb 10, 2021 · 6d4d7ab · 6d4d7ab
1 parent a438f17
commit 6d4d7ab
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ICARDA_VBA_Toolkit.bas b/ICARDA_VBA_Toolkit.bas
@@ -111,7 +111,7 @@ Public Function Barcode(myLabel As String) As Variant
         checksum = checksum + 105
     End If
 
-    Barcode = "Ì" & myLabel & Chr(checksum) & "Î"
+    Barcode = Chr(204) & myLabel & Chr(checksum) & Chr(206)
 End Function
 
 ' Convert Degrees Minutes Seconds (DMS) coordinates to Decimal Degrees (DD)