Thankyou for helping me nicolaswhite
Iused it But
'''Number = SubString(userName,StrLength(userName)-2,2)''
Here I want to add more than 2000 counts
like
userName = "UserName2500"
uNumber = substring(userName,StrLength((userName)-4,4)
i = 0
Do
If Not (IsDigit(StrAt(uNumber,0))) Then
uNumber = StrRemove(uNumber,0,1)
End If
i = i +1
Loop Until i = 3