Formate as strings numéricas de entrada, como 20041219, no tipo de data

Autor：Eve Cole Data da Última Atualização：2009-06-30 16:11:36

dim strin como string,strout como string

strin="20051219"

strout=left(strin,4)

strout=strout & "/" & mid(strin,5,iif(len(strin)=8,2,1))

strout =strout & "/" & right(strin,2)

strout=format(strour,"aaaa/mm/dd")

msgbox(strout)