2of5 Interleaved Barcodes in Excel

Hallo zusammen,

ich möchte gerne 2of5 Interleaved Barcodes in Excel erstellen.
Nun stehe ich vor dem Problem, dass ich keine passende, kostenlose Schriftart finde.
Gibt es hier nichts kostenlos?

Außerdem bin ich mir nicht sicher, ob das Makro, welches ich nutze stimmt.
Dies habe ich auch mal so im internet gefunden:


Public Function Interleaved_2_of_5(Zahl As Range) As Variant
Dim intIndex As Integer
Dim lngSum As Long
Dim blnSwitch As Boolean
If IsNumeric(Zahl.Text) Then
For intIndex = Len(Zahl.Text) To 1 Step -1
If Not blnSwitch Then
lngSum = lngSum + CInt(Mid$(Zahl.Text, intIndex, 1)) * 3
Else
lngSum = lngSum + CInt(Mid$(Zahl.Text, intIndex, 1))
End If
blnSwitch = Not blnSwitch
Next
lngSum = lngSum Mod 10
If CBool(Len(Zahl.Text) + Len(CStr(lngSum)) Mod 2) Then
Interleaved_2_of_5 = CDbl(Zahl.Text & "0" & CStr(lngSum))
Else
Interleaved_2_of_5 = CDbl(Zahl.Text & CStr(lngSum))
End If
ElseIf Not IsEmpty(Zahl.Value) Then
Interleaved_2_of_5 = "Keine Zahl !"
End If
End Function




Kann mir hier jemand bitte weiterhelfen?

Gruß
PHCA