create new file if file does not already exist

[spiral123]

Function Finddoc()

Dim MySize
'' check to see if file exists
MySize = FileLen("C:\vehicle database\Ole_Docs\Comments for unit " & [Forms]![mainform]![newUnitNumber] & ".rtf&quot
If MySize = 0 Then
'' directory doesn't exist
DoCmd.RunMacro "worddocs"
'' run macro to create word doc from report
Else

Dim WordObj As Word.Application

' Start Microsoft Word and open the document.
Set WordObj = CreateObject("Word.Application&quot
WordObj.Documents.Open (Forms![mainform]![commentsfile])
WordObj.Visible = True

Const wdWindowStateMaximize = 1

Set WordObj = Nothing

End If
End Function

 

[spiral123]

sorry i posted my code but forgot to state the problem. this code does not seem to function but im not sure why. it is supposed to run a`macro if the file does not exist otherwise it opens the specific filename in word. any help in troubleshooting is appreciated