Sub teste()
e = Split(Split(Join(Split(Split(Join(Split(Range("a1"), "(D-"), Chr(22)), ")")(0), "(D-"), Chr(22)), ")")(0), Chr(22))
Range("b1") = Trim(e(1)) & "_" & e(0)
End Sub
Sub Test2()
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "(^\w+.\w+)|(\d+)"
Set spl = .Execute(Range("a1"))
Range("b1") = spl(1) & "_" & spl(0)
End With
End Sub