You can use the replace function to get rid of the asterisk (will probably need to use Chr in the replace). If the special characters are causing it to break, just use a left and right to get the numbers.
From there convert to a date, and use FormatDate([Date],""dd/MM/yyyy"")