Carregar Combo com 1º dia de cada mes do ano atual .

Senhores
Há uma forma mais simples de popular uma combo de forma que mostro o mes por todos os mese do ano Ex. Janeiro, fevereiro,... mas o valor sera o 1.º dia de cada mês do ano atual no formato 01/01/2013,01/02/2013

Hoje Faço assim na origem da linha dígitos os nomes dos meses e depois de atualizar a combo recebe o calor no formato dd/mm/yyyy e funciona.
Mas existe uma forma mais eficiente ?

Private Sub CBx_Dt_AfterUpdate()
Dt_Data
End Sub
'Verifica o Mes informado e converte para o formato dd/mm/yyyy

Sub Dt_Data()
If (CBx_Data) = "Janeiro" Then
CBx_Data = DateSerial(Year((Date)), 1, 1)
ElseIf (CBx_Data) = "Fevereiro" Then
CBx_Data = DateSerial(Year((Date)), 2, 1)
ElseIf (CBx_Data) = "Março" Then
CBx_Data = DateSerial(Year((Date)), 3, 1)
ElseIf (CBx_Data) = "Abril" Then
CBx_Data = DateSerial(Year((Date)), 4, 1)
ElseIf (CBx_Data) = "Maio" Then
CBx_Data = DateSerial(Year((Date)), 5, 1)
ElseIf (CBx_Data) = "Junho" Then
CBx_Data = DateSerial(Year((Date)), 6, 1)
ElseIf (CBx_Data) = "Julho" Then
CBx_Data = DateSerial(Year((Date)), 7, 1)
ElseIf (CBx_Data) = "Agosto" Then
CBx_Data = DateSerial(Year((Date)), 8, 1)
ElseIf (CBx_Data) = "Setembro" Then
CBx_Data = DateSerial(Year((Date)), 9, 1)
ElseIf (CBx_Data) = "Outubro" Then
CBx_Data = DateSerial(Year((Date)), 10, 1)
ElseIf (CBx_Data) = "Novembro" Then
CBx_Data = DateSerial(Year((Date)), 11, 1)
ElseIf (CBx_Data) = "Dezembro" Then
CBx_Data= DateSerial(Year((Date)), 12, 1)
End If
End Sub


Preciso do valor no formato dd/mm/yyyy e o valor padrão da combo é Data()