Sub ccc()
For Each ce In Range("a1:a3")
slashh = Len(ce) - Len(WorksheetFunction.Substitute(ce, "/", ""))
If slashh > 0 Then
ce.Offset(0, 1).Value = Right(ce, Len(ce) - WorksheetFunction.Search("~~", WorksheetFunction.Substitute(ce, "/", "~", slashh), 1))
Else
ce.Offset(0, 1).Value = ce
End If
Next ce
End Sub