korrekt function??

Vill bara försäkra mig att denna är korrekt, ser den ut att vara det?

Private Function get_Month(Byval Current_date, Byval Mathvalue)
Dim Current_month
    If Len(Current_date) = 0 Or Not isDate(Current_date) Then
    Current_date = Date()
    Else
    Current_date = CDate(Current_date)
    End If
    Current_date = Dateserial(Year(Current_date), Datepart("M", Current_date, 2)+Mathvalue, "1")
	Current_month = DatePart("M", Current_date, 2)
get_Month = Current_month
End Function

'Ex. visar 5 månader tillbaka
response.write get_Month(Request.QueryString("Current_date"),-5)