How To Show Month First With VB.Net?

Public Function MonthFirst(ByVal pDate As Object) As Object
        On Error GoTo MonthFirst_Err
        MonthFirst = DateSerial(Year(pDate), Month(pDate), 1)
MonthFirst_Exit:
        Exit Function
MonthFirst_Err:
        MonthFirst = DateSerial(Year(Now), Month(Now), 1)
        Resume MonthFirst_Exit
    End Function