Formatering af dato

Jeg har et regneark hvor der i enkelte kolonner skal indsættet et kl. tidspunkt via VBA, med denne lille funktion:

  Dim Tid As Date
Public Function Tiden()
  Tid = Time
  ActiveCell = Tid
End Function

Problemet er at VBA indsætter følgende format i cellen: 12:31:44
Hvorledes får jeg formateret variablen Tid eller Time således at det tidspunkt der indsættes ser således ud 12:31

Er der nogen som lige kan hjælpe ?