Dosyanızı henüz inceleyemedim, telefondan yazdım hatalı olabilir.
TarihKutusununAdi=replace(TarihKutusununAdi , ".","")
TarihKutusununAdi=left(TarihKutusununAdi,2) & "." & mid(TarihKutusununAdi,3,2) & "." & right(TarihKutusununAdi,4)
TarihKutusununAdi=replace(TarihKutusununAdi , ".","")
TarihKutusununAdi=left(TarihKutusununAdi,2) & "." & mid(TarihKutusununAdi,3,2) & "." & right(TarihKutusununAdi,4)