Len(Dir("C:\Test.txt"))

Function IsFileExists(FileName As String) As Boolean
    Dim FSO As Object   ' Scripting.FileSystemObject
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    IsFileExists = FSO.FileExists(FileName)
    Set FSO = Nothing
End Function

Function IsFileExists(FileName As String) As Boolean
    On Error Resume Next
    IsFileExists = Application.WizHook.FileExists.FileExists(FileName)
End Function

Function IsFileExists(FileName As String) As Boolean
    On Error Resume Next
    IsFileExists = Application.WizHook.FileExists(FileName)
End Function

Function IsFileExists(FileName As String) As Boolean
    On Error Resume Next
    Application.WizHook.Key = 51488399
    IsFileExists = Application.WizHook.FileExists(FileName)
End Function

CreateObject("WScript.Shell").CurrentDirectory="C:\"

CurrentDB.Properties("ANSI Query Mode") = True

?DCount("*", "MSysObjects", "name like '%'")
0

Sub PutInClipboardSomeText(SomeText As String)
    If Len(SomeText) > 0 Then
        Dim MyData As Object
        Set MyData = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        
        MyData.SetText SomeText
        MyData.PutInClipboard
        Set MyData = Nothing
    End If
End Sub

Msgbox Format(Date(), "mm.dd.yyyy")

Dim O As Object
Set O = CreateObject("ScriptControl")
O.Language = "VBScript"
O.AddCode "Msgbox Format(Date(), ""mm.dd.yyyy"")"
Set O = Nothing