Sorry - change this line
                oDic.Add CStr(Folha1.Cells(lRow, 3)), Folha1.Cells(lRow, 3)
to this:
                oDic.Add CStr(Folha1.Cells(lRow, 3)), Folha1.Cells(lRow, 3).Value