Copy the last 6 characters in a string.

[Dman]

If I have an edittext that contains anywhere from 8 to 17 characters, how would I copy the last 6 to another edittext? I know how to start from the xth position from the beginning, but I can't seem to figure out how to start from the end.

 

[thedesolatesoul]

s.SubString2(s.Length-6,6)

 

[margret]

Something like this:

Dim a, b As String
a = "this is a test string"
If a.Length > 5 Then
     b = a.SubString(a.Length - 6)
End If

Sorry Thedesolatesoul, your faster than me!!

 

[Dman]

Thank you. Using the code below, if I enter the numbers 12345678 and click the Last 6 button, I get 3456

txtStockNum.Text = txtVIN.Text.SubString2(txtVIN.Text.Length-6,6)

But if I click on the last 8 button I get 12345678 using this code

txtStockNum.Text = txtVIN.Text.SubString2(txtVIN.Text.Length-8,8)

But if I enter 12345678901234567 I get an error when clicking the Last 6 button stating
Stringindexoutofboundsexception:
length = 17; regionStart = 11; regionlength = 5

And if I click on the last 8 button I get this error.
Stringindexoutofboundsexception:
length = 17; regionStart = 9; regionlength = 1

 

[Dman]

That worked perfectly Margret.

Thanks all!