Bueno, mi aburrimiento cada dia es mas grande, y si estoy en mi casa "malo" y no voy al cole, aun más... (es coña, esos dias son los mejores xD)

Bueno, os dejo un código en el que separa la fecha en 3 partes, dia, mes, año... (Es de mi cosecha privada (mio)):

Dim fechatotal As String
Dim dma() As String
fechatotal = Date
dma = Split(fechatotal, "/")
MsgBox "Dia: " & dma(0) & vbNewLine & "Mes: " & dma(1) & vbNewLine & "Año: " & dma(2), vbInformation, "Fecha: "
 

¿Se nota que volvi a instalar windows porque me obligaron? xD

Se que es un poquito largo, pero yo en mis proyectos uso modulos asi que tengo agregadas todas las funciones que me son mas utiles para trabajar, y construyo mis funciones en base a funciones ya hecho.
La funcion Frag tiene su historia de porque la hice asi; ya que existe una funcion muy parecida en Vb llamada split; asi que se podria adaptar el codigo a reducirlo mucho mas aun con esa funcion split o sino trabajando directamente con las cadenas (usando mid...)

Private Function sFecha() As String
Dim Mes As String
Select Case Frag(Date, "/", 2)
    Case "01": Mes = "Enero"
    Case "02": Mes = "Febrero"
    Case "03": Mes = "Marzo"
    Case "04": Mes = "Abril"
    Case "05": Mes = "Mayo"
    Case "06": Mes = "Junio"
    Case "07": Mes = "Julio"
    Case "08": Mes = "Agosto"
    Case "09": Mes = "Septiembre"
    Case "10": Mes = "Octubre"
    Case "11": Mes = "Noviembre"
    Case "12": Mes = "Diciembre"
End Select
sFecha = Frag(Date, "/", 1) & " de " & Mes & " de " & Frag(Date, "/", 3)
End Function
 
Private Sub Form_Load()
MsgBox sFecha
 
End Sub
Public Function Frag(ByVal Cad As String, c As String, X As Integer) As String
Dim i, a As Integer
On Error Resume Next
For a = 1 To X
i = InStr(1, Cad, c)
If i = 0 Then
Frag = Cad
Else
Frag = Mid(Cad, 1, i - 1)
Cad = Mid(Cad, i + Len(c))
End If
Next a
End Function
 

Quedaria asi:

Public Function sFecha() As String
Dim fecha() As String
fecha = Split(Date, "/")
 
Dim Mes As String
Select Case fecha(1)
    Case "01": Mes = "Enero"
    Case "02": Mes = "Febrero"
    Case "03": Mes = "Marzo"
    Case "04": Mes = "Abril"
    Case "05": Mes = "Mayo"
    Case "06": Mes = "Junio"
    Case "07": Mes = "Julio"
    Case "08": Mes = "Agosto"
    Case "09": Mes = "Septiembre"
    Case "10": Mes = "Octubre"
    Case "11": Mes = "Noviembre"
    Case "12": Mes = "Diciembre"
End Select
sFecha = fecha(0) & " de " & Mes & " de " & fecha(2)
End Function

PD:
Esto es producto de mi aburrimiento:
http://foro.elhacker.net/programacion_vb/cubo_en_3d_girando_efecto_optico_sin_apis_explicacion-t235246.0.html

Si xD

yo antes de saber que existia Split usaba como dos o 3 bucles (for next) para generar lo que hace el split xP, obiamente cuando empese en esto de vb6

Menos codigo todavia:

Saludos