访问VBA - 使用TextToColumns将Excel格式设置为常规

I'm trying to format a column in excel using TextToColumns in access vba. I'd like to format the column (which contain dates in excel) to General format. I don't encounter an error when the code is ran, but the format of the column doesn't change. I'm trying to format a column in excel using Te