Fortlaufende Belegnummer Format

[jk]

Hallo liebe Forummitglieder,

ich bitte um kurze Hilfe mit einem VBA Code. 

Ich möchte in einer Zelle folgende fortlaufende Belegnummer anzeigen:"2023_001" usw.
Mit folgendem Code kann ich die Belegnummer wie folgt (fotlaufend) anzeigen: "01/2023" usw. 

'letzte Zeile ermitteln

lngLetzte = Sheets(strObjblatt).Cells(65536, 1).End(xlUp).Row

'Auswerten der letzten Belegnummer (Angebot bzw. Rechnung)
intPos1 = InStr(Sheets(strObjblatt).Cells(lngLetzte, 2), "/")
intLfdnr = Format(Left(Sheets(strObjblatt).Cells(lngLetzte, 2), intPos1 - 1), "00")
intJahr = Mid(Sheets(strObjblatt).Cells(lngLetzte, 2), intPos1 + 1, intPos1 + 1)

'Neu generierte Belegnummer in das Tabellenblatt "Erfassung" schreiben
Sheets("Erfassung").Range("B19").Value = Format(intLfdnr + 1, "00") & "/" & intJahr


Mein Problem ist eben, dass sich die Belegnummer nach Abänderung des Codes nicht mit Unterstrich im folgenden Format anzeigen lässt "2023_001" usw.

Vielleicht hat hier jemand einen Vorschlag für mich.

Vielen Dank!