The code in play here is the createJournal
procedure located in the Globals module of the JournalPrompt
subform.
Here an excerpt of that code:
Dim template As New NotesDatabase( "",
"notebook9.ntf" ) 'no
path specified so looking the the data directory
'see if the Journal6 template exists
If template.isopen = False Then
Msgbox getString(18),
16, getString(11)
Exit Sub
End If
Dim NewJDb As notesdatabase
Dim acl As NotesACL
Set NewJDb = template.CreateFromTemplate( "",
JFn, True )