Option Explicit ' VB / VBA Functions for Code128(A, B,C), UCC/EAN 128 ' Copyright 2004 by MW6 Technologies Inc. All rights reserved. ' ' This code may not be modified or distributed unless you purcha

  Option Explicit Public Function ascii2Char(strInput As String) As String Dim i As Integer Dim strTemp As String Dim nPos As Integer Dim nValue As Integer i = 1 nPos = InStr(i, strInput, "&#", vbText