Public Function ProgCodeProf(ProgCode As String) As String
' Erstellt einen Code, bei dem nach jedem 5. Zeichen ein Bindestrich gesetzt 
' wird
Dim MakeCode As String
For i = 1 To Len(ProgCode)
If i Mod 5 = 0 Then
MakeCode = MakeCode & Mid(ProgCode, i, 1) & "-"
Else
MakeCode = MakeCode & Mid(ProgCode, i, 1)
End If
Next
If Right(MakeCode, 1) = "-" Then
        MakeCode = Mid(MakeCode, 1, (Len(MakeCode) - 1)) ' Wenn letztes Zeichen 
        ' ein Bindestrich ist, dann weglöschen
Else
        MakeCode = Mid(MakeCode, 1, Len(MakeCode)) ' Letztes Zeichen war kein 
        ' Bindestrich, also alles beibehalten
End If
 
ProgCodeProf = MakeCode ' Übergibt den fertigen Code an die Funktion
End Function