Visual Basic - Combo box(Fecha)

Necesito que al cargar el formulario el combo box que tengo asignado para que me muestre el mes, este me muestre el mes actual pero no en numero de mes , sino en palabras por ejemplo : Enero , Junio, etc.
desde ya gracias

'( 1 ) función format
MsgBox StrConv(Format(Date, "mmmm"), vbProperCase)

'( 2 ) usuario
Dim meses As Variant
meses = Array("", "Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre")
MsgBox meses(Month(Date))

hola Emilia intenta de esta forma
este codigo llena el combo1 con todos los meses

Sub ver()
combo1.AddItem " Enero "
combo1.AddItem " Febrero "
combo1.AddItem " Marzo "
combo1.AddItem " Abril "
combo1.AddItem " Mayo "
combo1.AddItem " Junio "
combo1.AddItem " Julio "
combo1.AddItem " Agosto "
combo1.AddItem " Septiembre "
combo1.AddItem " Octubre "
combo1.AddItem " Noviembre "
combo1.AddItem " Diciembre "
End Sub

Private Sub Form_Load()
ver
End Sub

--------------------------------------------------------------------------------
este pone el me actual en el combo1

Private Sub Form_Load()
vermesactual
End Sub

Sub vermesactual()
If Month = 1 Then combo1.AddItem " Enero "
If Month = 2 Then combo1.AddItem " Febrero "
If Month = 3 Then combo1.AddItem " Marzo "
If Month = 4 Then combo1.AddItem " Abril "
If Month = 5 Then combo1.AddItem " Mayo "
If Month = 6 Then combo1.AddItem " Junio "
If Month = 7 Then combo1.AddItem " Julio "
If Month = 8 Then combo1.AddItem " Agosto "
If Month = 9 Then combo1.AddItem " Septiembre "
If Month = 10 Then combo1.AddItem " Octubre "
If Month = 11 Then combo1.AddItem " Noviembre "
If Month = 12 Then combo1.AddItem " Diciembre "
End Sub