Formatar data para "DD/MM/AA" os dados puxados de uma HTML

[SILMAR]

Ilustres mestres,

Criei uma rotina para baixar os dados de uma determinada página na WEB. Alguns dados são datas, e percebi que quando "baixa" essas informações alguns estão sendo baixados "invertidos".

Por exemplo:

Na Web está: 12/03/11

Puxa na plan : 03/12/11

Como faço para adaptar a rotina, de modo que ela verefique e puxe os dados apenas no formato "DD/MM/AA", no formato brasileiro.

Segue a rotina:

Sub DataBalancoDFA()

' Baixa a data prevista para publicação do Balanço do 4º Trimestre (anual consolidado)

Dim ie As InternetExplorer

Dim t As Integer

Dim r As Integer, c As Integer

Dim elemCollection As Object

Dim objRef

Set ie = New InternetExplorer

ie.Navigate "http://www.bmfbovespa.com.br/cronograma-eventos/CronogramaEventos.aspx?Idioma=pt-br"

ie.Visible = True

Do While ie.Busy

Loop

Do Until ie.Document.ReadyState = "complete"

Loop

Set objRef = ie.Document.all("ctl00_contentPlaceHolderConteudo_rptTabelaItems_ctl09_lnkBtnDescricao")

objRef.Click

Do While ie.Busy

Loop

Do Until ie.Document.ReadyState = "complete"

Loop

Set elemCollection = ie.Document.getElementsByTagName("TABLE")

For t = 0 To elemCollection.Length - 1

For r = 0 To elemCollection(t).Rows.Length - 1

If elemCollection(t).Rows®.Cells.Length > 7 Then

ThisWorkbook.Worksheets(1).Range("A65536").End(xlUp).Offset(1, 0) = elemCollection(t).Rows®.Cells(0).innerText

ThisWorkbook.Worksheets(1).Range("A65536").End(xlUp).Offset(0, 1) = elemCollection(t).Rows®.Cells(1).innerText

ThisWorkbook.Worksheets(1).Range("A65536").End(xlUp).Offset(0, 2) = elemCollection(t).Rows®.Cells(2).innerText

ThisWorkbook.Worksheets(1).Range("A65536").End(xlUp).Offset(0, 3) = elemCollection(t).Rows®.Cells(3).innerText

ThisWorkbook.Worksheets(1).Range("A65536").End(xlUp).Offset(0, 4) = elemCollection(t).Rows®.Cells(4).innerText

ThisWorkbook.Worksheets(1).Range("A65536").End(xlUp).Offset(0, 5) = elemCollection(t).Rows®.Cells(5).innerText

ThisWorkbook.Worksheets(1).Range("A65536").End(xlUp).Offset(0, 6) = elemCollection(t).Rows®.Cells(6).innerText

ThisWorkbook.Worksheets(1).Range("A65536").End(xlUp).Offset(0, 7) = elemCollection(t).Rows®.Cells(7).innerText

End If

Next r

Next t

ie.Quit

Set ie = Nothing

End Sub

Agradeço imensamente, quem puder me ajudar.

Silmar