Vba Split String Into Integer Array Palindrome