Pitanje za makro OutputTo

Kako da u makrou OutputTo u polju Output file u imenu fajla bude trenutno vrijeme.
Npr da umjesto C:\Racun.txt u imenu fajlabude trenutno vrijeme 31-01-08 12:00_Racun.txt
Hvala

Ubaci ovo u glavni modul


Private Sub BrojRacuna()
NazivFajla = "C:\" & Format(Date, "dd-mm-yy") & " " & Format(Time, "hhmmss") & "_Racun.txt"
End Sub

Primer:
Call BrojRacuna

VB ne koristim bas mnogo i slabije se snalazim.Radim sa SQL i zato mi treba rjesenje za makro.
Ipak hvala na trudu

Nece ti prihvatiti vrijeme kao 22:15:12 Jer je : operator.
Mozda na necom compu.
Function vrijemeIme()
Dim Vrijeme
Vrijeme = Format(Time, "hh") & "_" & Format(Time, "mm") & "_" & Format(Time, "ss")
Open Db_Putanja & "\" & Vrijeme & "Racun.txt" For Output Shared As #1
Close #1
End Function

Function Db_Putanja() As String
'-------------------------------------------------
'Ova funkcija pronalazi putanju postojeće baze
'Autor funkcije ZXZ
'__________________________________________________
Dim Db As Database
Dim Putanja As String

On Error Resume Next
Set Db = DBEngine(0)(0)
Putanja = Db.Name
Do Until Right$(Putanja, 1) = "\"
Putanja = Left$(Putanja, Len(Putanja) - 1)
Loop
Putanja = Left$(Putanja, Len(Putanja) - 1)
Db_Putanja = Putanja
Set Db = Nothing
End Function

Potpis

zxz