Split string

I want to accept a creditcard number and display only the last 4-digit on a label. How do I split a string (or an integer) at the last 4 digits. Please help.
Dim ccn as string = 1234567890123456
Dim ccn2 as string = split(ccn.....???
Lable1.Text = "************" & ccn2
 
...