Modifying arul's post..
Regards,
Ankesh
Code:
Dim a
strURL="https://cs11.salesforce.com/00QZ0000001J1zV"
a=Split(strURL,"/")
Msgbox a(Ubound(a))Regards,
Ankesh

