COLOCAR O NOME DO MES CORRENTE NUM COMBOBOX

WEBIER 10/04/2010 09:32:37
#338993
estou querendo clicar num botão e ele colocar no combobox o nome do mês que estamos.

eu tentei:

cboMes.Text = MonthName(Date)
[ô]dar msg de erro

cboMes.Text = Month(Date)
[ô]dar o numero do mês (4)

cboMes.Text = format(Month(Date), [Ô]mmmm[Ô])
[ô]dar [Ô]janeiro[Ô]
JILNEY 10/04/2010 09:39:41
#338995 Resposta escolhida
Funciona, so nao sei se tem outra maneira com menos codigo.

Dim N As Integer
Dim mes As String
N = Month(Date)
If N = 1 Then
mes = [Ô]Janeiro[Ô]
ElseIf N = 2 Then
mes = [Ô]Fevereiro[Ô]
ElseIf N = 3 Then
mes = [Ô]Março[Ô]
ElseIf N = 4 Then
mes = [Ô]Abril[Ô]
ElseIf N = 5 Then
mes = [Ô]Maio[Ô]
ElseIf N = 6 Then
mes = [Ô]Junho[Ô]
ElseIf N = 7 Then
mes = [Ô]Julho[Ô]
ElseIf N = 8 Then
mes = [Ô]Agosto[Ô]
ElseIf N = 9 Then
mes = [Ô]Setembro[Ô]
ElseIf N = 10 Then
mes = [Ô]Outubro[Ô]
ElseIf N = 11 Then
mes = [Ô]Novembro[Ô]
ElseIf N = 12 Then
mes = [Ô]Dezembro[Ô]
End If

cboMes.Text = mes
Tópico encerrado , respostas não são mais permitidas
Voltar