Вырезать часть строки - VB

Формулировка задачи:

Доброго всем дня,
есть 10 правильных вариантов, какие могут быть названия файлов
например:
01000732038001_

20080410

_OP_P11.dgn
01000480030001002_

20110609

_EGY.dgn
01000480040001006_

20060403

_EGYS.dgn
01000482013001_

20070302

_BAGS.dgn
01000482021_

20070410

_BTS.dgn
01000510145001_

20101203

_SZ_1.dgn
01000510145001_

20101203

_SZ_99.dgn
01000510145_

20101203

_UP.dgn
01000990084001_

20111018

_EK_2.JPG
01000990084881_

20111018

_EK_99.JPG
01000992360001_

20120111

_IL_1.jpg
01000992360001_

20120111

_IL_11.jpg
середина - это дата в формате ”yyyymmdd”
как вырезать из строки только эту часть и проверить на правильность формата даты?

Function GetFilename(ByVal sFileName As String) As String
  Dim lngLen As Long
   Dim sFName, sFName1, Last As String
   
Dim i, j As Integer
sFName1 = Left(sFileName, InStrRev(sFileName, ".") - 1)
Debug.Print sFName1

i = InStrRev(sFName1, "_")
If i > 0 Then
sFName = Left(sFName1, i - 1)
Debug.Print sFName
End If

j = InStrRev(sFName, "_")
If j > 0 Then
Last = Left(sFName, j - 1)
Debug.Print "Last = " & Last
End If

End Function

на данный момент не получается сделать ее универсальной для всех вариантов, а если точнее, то не получается вырезать дату. левую часть, до первого "_" получается, а остальное нет.

Решение задачи: «Вырезать часть строки»

textual
                            Листинг программы 
                        
                            Set rx = CreateObject("VBScript.RegExp")
rx.Pattern = "(\d+_)(\d{4})(\d\d)(\d\d)(_.*)"
Debug.Print rx.Replace("01000732038001_20080410_OP_P11.dgn", "$4.$3.$2")

'10.04.2008