Function MelBF$(c$, r As Byte)
Dim oRegExp As Object, oMatches As Object
Set oRegExp = CreateObject("vbscript.regexp")
oRegExp.Pattern = "(.+)(\d{5}.*)"
If oRegExp.Test(c) = True Then _
Set oMatches = oRegExp.Execute(c): MelBF = oMatches.Item(0).submatches(r - 1)
End Function