Moin!
Folgendes ergibt 2:
CLng(Left(Mid("Messung_02.txt", InStr("Messung_02.txt", "_") +1, 7), 2))
Gruß Ralf