Formatering af dato

Hej

Jeg har lidt problemer med formatering af dato... Jeg har skrevet koden her, men jeg vil have mulighed for at springe en dag eller flere frem, ved fx at sige Day(Now) +1. Det kan man også godt, men plusser man med et højt nok tal bliver der pludselig 30 dage i denne måned... og det passer jo ikke.

<%
    ' Formatering af dato (DD-MM-YYYY)
    If Day(Now) <= 9 Then
        varDayDate = "0" & Day(Now)
    Else
        varDayDate = Day(Now)
    End If
   
    If Month(Now) <= 9 Then
        varMonthDate = "0" & Month(Now)
    Else
        varMonthDate = Month(Now)
    End If
   
    varSubmitDate = varDayDate & "-" & varMonthDate & "-" & Year(Now)
    Response.Write varSubmitDate
%>

Findes der en måde at fixe dette problem? Jeg skal altså kunne lægge et vilketsom helst tal til dato'en og den skal kunne skifte måned (og år) af sig selv...