Tid format - funktion

Hejsa,

Sådan henter jeg dato og tid via en funktion:
function DatabaseDate(Format)
      Format = Replace(Format, "dd", Day(date))
      Format = Replace(Format, "mm", Month(date))
      Format = Replace(Format, "yyyy", Year(date))
      Format = Replace(Format, "hh", Hour(Time))
      Format = Replace(Format, "nn", Minute(Time))
      Format = Replace(Format, "ss", Second(Time))

      DatabaseDate = Format
end function

MEN når jeg udskriver DatabaseDate("hh:nn:ss") så udskriver den tiden sådan fx:  22:8:2  men den skulle gerne stå sådan: 22:08:02
Hvordan gør man så den viser 2 tegn ?  Det samme er med datoen.

HJÆLP ;)