Public Function getEAN13(psource) As String
    
    Dim source  As String
    Dim target  As String
    Dim arrY    As Variant
    Dim c       As String
    Dim y       As String
    Dim i       As Integer
    
    source = Right("0" & psource, 13)
    
    arrY = Array("LLLLLL", "LLSLSS", "LLSSLS", "LLSSSL", "LSLLSS", "LSSLLS", "LSSSLL", "LSLSLS", "LSLSSL", "LSSLSL")
    c = Mid(source, 1, 1)
    y = arrY(c)
    
    target = Mid("#$%&'()*+,", c + 1, 1) & "!"
    For i = 2 To 7
        c = Mid(source, i, 1)
        Select Case Mid(y, i - 1, 1)
            Case "L"
                target = target & Mid("0123456789", c + 1, 1)
            Case "S"
                target = target & Mid("ABCDEFGHIJ", c + 1, 1)
        End Select
    Next i
    
    target = target & "-"
    For i = 8 To 13
        c = Mid(source, i, 1)
        target = target & Mid("abcdefghij", c + 1, 1)
    Next i
    
    getEAN13 = target & "!"

End Function