Berste, welkom op dit forum.
Nav je vraag gelijk maar 'ns die functie een opfris beurt gegeven... Dit doet wat je vraagt.
Function OGM(sWaarde As String) As String
'voorbeeld OGM-nummer: +++785/4279/40359+++
Const iDELER As Integer = 97
Dim sCheckDigit As String, sTempOGM As String
If Len(sWaarde) <> 10 Then OGM = "#ERR!": Exit Function
sCheckDigit = Format(sWaarde - (iDELER * Int(sWaarde / iDELER)), "00") 'de MOD functie breekt af bij een Long Integer (=2147483648) = Bug van VBA!!!!
sTempOGM = sWaarde & IIf(sCheckDigit = "00", 97, sCheckDigit)
OGM = Format(sTempOGM, "+++000/0000/00000+++")
End Function