or using right instead

Sub test()
    
    For Each Rng In Range("A1:a5")
        Rng.Offset(, 4) = Right(Rng, Len(Rng) - InStrRev(Rng, "/"))
    Next
    
End Sub