Hallo Peter,
danke für die Hilfe.
Folgende VBA-Zeilen sollen aus dem String einen Datumsstring generieren, den ich dann auf ein gültiges Datum überprüfe:

medScan ist ein 40 bis 50 stelliger QRC indem ich zuerst die Position einer "Markierungszahl" suche und danach die 6 Zahlen selektiere

'suche die 17 im QRC
ScanStrLänge = InStr(1, medScan, "17"

'die nächsten 6 Zahlen trenne mit Punkte
ScanStr = Mid(medScan, ScanStrLänge + 2, 2) + "." + Mid(medScan, ScanStrLänge + 4, 2) + "." + Mid(medScan, ScanStrLänge + 6, 2)

'wenn der String als Datum durchgeht, zeige es in einem Textfeld
If IsDate(CDate(ScanStr)) Then edDatumString.Value = CDate(ScanStr)

Verwende ich falsche Funktionen, oder zu umständlich.

BG

Paula