Sub M_snb() c00 = "Die Buchungsnummer für Ihren Flug nach New York am 10.09.2016 lautet: 1xEym3ui78rg1erg45egf8e" MsgBox Split(c00, ":")(1) sn = Split(c00) For j = 0 To UBound(sn) If Len(sn(j)) > 19 Then MsgBox sn(j) Exit For End If NextEnd Sub