Cacher is the code snippet organizer for pro developers

Dim arr, brr, crr, drr, brr1, firstData, lastData, day
 Selection.Text = Replace(Selection.Text, ",", "")
 If InStr(Selection.Text, " - ") > 0 Then
 arr = Split(Selection.Text, " - ")
 Else
 arr = Split(Selection.Text, "-")
 End If
 brr = Split(arr(0), " ")
 crr = Split(arr(1), " ")
 If Left(brr(1), 1) = "0" Then
    day = Right(brr(1), 1)
 End If
  If Left(crr(1), 1) = "0" Then
    day = Right(crr(1), 1)
 End If
 firstData = day + " " + brr(0)
 lastData = day + " " + crr(0)
 Selection.Text = firstData + ChrW(8211) + lastData + " " + crr(2)