利用函数VBA实现提取表格内的单数或双数（包括0 ）

比如A1单元格有6个数字：034789，我需要提取其中的双数048到A2，提取其中的单数379到A3，如何能够实现？自己研究了一上午搞不定，求助版主或各位高手帮忙。:ls15 :ls06