Visual Basic.NET - Saber dia inicial y dia final del mes

'Bien quiza alguno le sirva

Dim mifecha As Date

MsgBox(PrimerDiaDelMes(mifecha.Now) + " " + UltimoDiaDelMes(mifecha.Now))

'para saber el primer dia del mes 

Function PrimerDiaDelMes(ByVal dtmFecha As Date) As Date

        PrimerDiaDelMes = DateSerial(Year(dtmFecha), Month(dtmFecha), 1)

End Function

'para saber el ultimo dia del mes

Function UltimoDiaDelMes(ByVal dtmFecha As Date) As Date

     UltimoDiaDelMes = DateSerial(Year(dtmFecha), Month(dtmFecha) + 1, 0)

End Function