Check Cell for number if yes then copy

Hi all,

So i am working with a workbook that has a Cell with a Name and a Account number.

For example:
Cell D8 have the value: Mister excel 123.654.987.

I want a vba code that Checks the cell if the last 9 character is a number.
if not then .. else Paste the last 9 characters to Cell A1

Some help?