To use the FileSystemObject, you need to reference the Microsoft Scripting Runtime:
Public Function GetExecutableFileVersion(ByVal _ Filename As String) As String Dim FileObj As Scripting.FileSystemObject ' Create Object Set FileObj = New Scripting.FileSystemObject If FileObj.FileExists(Filename) Then GetExecutableFileVersion = _ FileObj.GetFileVersion(Filename) End If ' Free Object Set FileObj = NothingEnd Function