En Google encontre como sacar el Numero y con algo de Format se puede sacar el dia en letra
En un TextBox puse de Fecha "19/07/2005"
Function UltimoDiaMes2(Fecha As Date) As Byte
UltimoDiaMes2 = Day(DateSerial(Year(Fecha), Month(Fecha) + 1, 0))
End Function
Private Sub Command1_Click()
MsgBox "Ultimo dia del mes en Numero es : " & UltimoDiaMes2(Text1) & Chr(13) & Chr(13) & "En Letra es : " & Format(DateValue(UltimoDiaMes2(Text1) & "/" & Month(Text1) & "/" & Year(Text1)), "dddd")
End Sub
El MsgBox me dice que el mes de Julio tiene 31 dias y ese ultimo es Domingo
Ya lo probe con Febrero y Mayo...