Pegar numero

[herson 0]

Ola pessoal,Estou começando no VB e estou com uma dúvida bem básica.Como faço para pegar somente alguns digitos dentro de um número?Por exemplo: o numero 2568456, eu tenho q pegar somente o final 456,existe alguma função ou um algum jeito simples de fazer isso?Obrigado,

[Jattobá 0]

dim xNumero as stringdim xNovoNumero as integerxVar = 2568456xNumero=mid$(str(xVar),5,3)xNovoNumero=val(xNumero)