Hi Tap,

If all the numbers contain the two dashes then the extraction would be straightforward:

Sub DashExtract(): Dim i As Integer, j As Integer, N As String, R As Range
For Each R In Range("A1:A6700") 'or whatever the correct range is
i = InStr(1, R, "-"): j = InStr(i + 1, R, "-")
If i And j Then
N = Mid(R, i - 3, 12)
Range("B" & R.row) = N
End If: Next
End Sub