Tenho esse exemplo não se pode te ajudar..

 

txtMesNumero.Text = Month(Date)

If txtMesNumero.Text = "1" Then
txtMes.Text = " Janeiro"
End If
If txtMesNumero.Text = "2" Then
txtMes.Text = " Fevereiro"
End If
If txtMesNumero.Text = "3" Then
txtMes.Text = " Março"
End If
If txtMesNumero.Text = "4" Then
txtMes.Text = " Abril"
End If
If txtMesNumero.Text = "5" Then
txtMes.Text = " Maio"
End If
If txtMesNumero.Text = "6" Then
txtMes.Text = " Junho"
End If
If txtMesNumero.Text = "7" Then
txtMes.Text = " Julho"
End If
If txtMesNumero.Text = "8" Then
txtMes.Text = " Agosto"
End If
If txtMesNumero.Text = "9" Then
txtMes.Text = " Setembro"
End If
If txtMesNumero.Text = "10" Then
txtMes.Text = " Outubro"
End If
If txtMesNumero.Text = "11" Then
txtMes.Text = " Novembro"
End If
If txtMesNumero.Text = "12" Then
txtMes.Text = " Dezembro"
End If