m_Root is the file name and can use a relative path.
Calling example:
(LoadFile(""))
Function LoadFile(m_Root)
Dim Filename,fso,hndFile
Filename = m_Root
If Right(Filename, 1)<>"/" And Right(Filename, 1)<>"\" Then Filename = Filename & "/"
Filename = (Filename & m_FileName)
Set fso = CreateObject("")
If Not (Filename) Then ShowError("Template File" & m_FileName & "Not exist!")
set hndFile = (Filename)
LoadFile =
Set hndFile = Nothing
Set fso = Nothing
If LoadFile = " Then ShowError("Template file cannot be read" & m_FileName & " or the file is empty!")
End Function