If Len(Month(Sheets("Base").Cells(L, 3))) = 1 Then
date1 = Year(Sheets("Base").Cells(L, 3)) & "0" & Month(Sheets("Base").Cells(L, 3))
Else
date1 = Year(Sheets("Base").Cells(L, 3)) & "0" & Month(Sheets("Base").Cells(L, 3))
End If
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , date1