Datoformat skifter i VBA

Jeg har søgt lidt omkring på mit spørgsmål, f.eks.
http://www.eksperten.dk/spm/853941 men uden at kunne få det tilpasset min udfordring.

Jeg har en inputbox i VBA som beder brugeren om dato i formatet DD-MM-ÅÅÅÅ - koden ser således ud:
Datoinput:        Dato = InputBox("Hvilken måned afsluttes", "Dato", "DD-MM-ÅÅÅÅ")
    If IsDate(Dato) Then
    IndeværendeÅr = Year(Dato)
    IndeværendeMåned = Month(Dato)
    Else: MsgBox ("Ikke rigtig datoformat"): GoTo Datoinput
    End If

Denne dato bruges i et par formler.

Senere i samme VBAkode skal jeg så bruge en dato en dag nyere end oprindelig. Jeg er kommet frem til:
DateAdd("d", 1, Dato) - denne nye dato skal jeg så bruge til et filter.

Udfordringen er at filterdatoen bliver skrevet som MM-DD-ÅÅÅÅ - altså bliver 30-06-2012 (som så skal blive til 01-07-2012) i stedet til 07-01-2012.

Er der en nem løsning?

Jeg har forsøgt med at navngive via .Value(DD,MM,YYYY), men jeg overvejer om det er nemmere at angive en ny variabel hvor jeg laver inputtet.