please help how can i acomplish this?

the web page states

Since 2 of 5 interleaved barcodes encode pairs of digit my font contain the 100 pairs from 00 to 99. 2 additionnal characters are reserved for start and end symbol.

Pair of digits
ASCII Code
Character
Pattern

00
0033
!
NNNNWWWWNN

01
0034
"
NWNNWNWNNW

.../...

93
0126
~
NWWWNNWNNN

94
0195
Ã
NNWNNWWNNW

.../...

99
0200
È
NNWNNNWWNW

Start
0201
É
NNNN

Stop
0202
Ê
WNN

vba code given to try to impliment

Public Function Code25I$(chaine$)


'V 1.0.0
'Parameters : a string
'Return : * a string which give the bar code when it is dispayed with CODE25I.TTF font
' * an empty string if the supplied parameter is no good
Dim i%, checksum&, dummy%
Code25I$ = ""
If Len(chaine$) > 0 Then
'Check for valid characters
For i% = 1 To Len(chaine$)
If Asc(Mid$(chaine$, i%, 1)) < 48 Or Asc(Mid$(chaine$, i%, 1)) > 57 Then Exit Function
Next
'Add if necessary the checksum
If COkey = vbChecked Then
For i% = Len(chaine$) To 1 Step -2
checksum& = checksum& + Val(Mid$(chaine$, i%, 1))
Next
checksum& = checksum& * 3
For i% = Len(chaine$) - 1 To 1 Step -2
checksum& = checksum& + Val(Mid$(chaine$, i%, 1))
Next
chaine$ = chaine$ & (10 - checksum& Mod 10) Mod 10
End If
'Check if the length is odd
If Len(chaine$) \ 2 <> Len(chaine$) / 2 Then Exit Function
'Calculation of the code string
For i% = 1 To Len(chaine$) Step 2
dummy% = Val(Mid$(chaine$, i%, 2))
dummy% = IIf(dummy% < 94, dummy% + 33, dummy% + 101)
Code25I$ = Code25I$ & Chr$(dummy%)
Next
'Add START and STOP
Code25I$ = Chr$(201) & Code25I$ & Chr$(202)
End If
End Function

is some of this french ?
and what excatly do these lines do
any pointers to a good vb site will help

still working on this any suggestions would be helpfull

i think all i need to do is change the string of numbers to ascii then add on the first and last char and it will display right.