Function FourV(rg As Range)
  Dim ar(1 To 1, 1 To 4), s1, s2, s3
  s1 = Split(rg, "/")
  s2 = Split(s1(0), "-"): s3 = Split(s1(1), "-")
  If UBound(s2) <> -1 Then ar(1, 1) = s2(0) Else ar(1, 1) = ""
  If UBound(s2) = 1 Then ar(1, 2) = s2(1) Else ar(1, 2) = ""
  If UBound(s3) <> -1 Then ar(1, 3) = s3(0) Else ar(1, 3) = ""
  If UBound(s3) = 1 Then ar(1, 4) = s3(1) Else ar(1, 4) = ""
  FourV = ar
End Function