Microsoft Office has a number of comparison operations so you can check if a value is greater than, equal to or less than another value using the standard greater than, less than and equal symbols.
Public Function CombineCheck(ParamArray Files() As Variant) Set FSO = CreateObject("Scripting.FileSystemObject") Set objOutput = FSO.CreateTextFile(FileNamePath & "combine.txt", True) Dim X As Integer ...