Få Millisekunder i dato script

Hej alle

Har dette herlige script, kan jeg hive millisekunder ud af det også??

<script language="VBScript" runat="Server">
Function DKDato(nDato, nFormat)
  If isDate(nDato) = False Then
    DKDato = nDato
    Exit Function
  End If
  Dim arrMinth
  Dim arrDays
  arrMonth = "januar,februar,marts,april,maj,juni,juli,august,september,oktober,november,december"
  arrMonth = Split(arrMonth,",")
  datDay = PutZero(Day(nDato))
  datMonth = PutZero(Month(nDato))
  datYear = Year(nDato)
  datHour = PutZero(Hour(nDato))
  datMin = PutZero(Minute(nDato))
  datSec = PutZero(Second(nDato))
  Select Case nFormat
  ' flere eksempler på http://activedeveloper.dk/aspdigital/kapitel6/dansk_dato.asp
  case "#8" DKDato = Mid(datYear,3,2)&""&datMonth&""&datDay&" kl. "&datHour&":"&datMin
  case "#1" DKDato = Mid(datYear,3,2)&""&datMonth&""&datDay&""&datHour&""&datMin&""&datSec

  Case Else
    DKDato = nDato
  End Select
End Function

Function PutZero(value)
  If Len(value) = 1 Then value="0"&value
  PutZero = value
End Function
</script>