If you just need the last five digits and you need those to be a number, you can use code like this:
Dim sEan As String
Dim lLastFive As Long
sEan = "90000000000000012345"
lLastFive = CLng(Right$(sEan, 5))
Debug.Print lLastFive, TypeName(lLastFive)
And you should get
12345 Long