Function BAG(s As String)
c = Split(s, "/")
For i = 0 To UBound(c)
If Not IsNumeric(c(i)) Then
txt = txt & c(i) & " "
On Error Resume Next
pre1 = Left(c(i), 2)
pre2 = Left(c(i), 6)
On Error GoTo 0
Else
Select Case Len(c(i))
Case 2
Select Case Len(c(i - 1))
Case 6
txt = txt & pre1 & Left(c(i - 1), 4) & c(i) & " "
Case Else
txt = txt & pre2 & c(i) & " "
End Select
Case 3
txt = txt & pre1 & c(i) & "xxx" & " "
Case 6
txt = txt & pre1 & c(i) & " "
End Select
End If
Next
BAG = txt
End Function