Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
dim intFileHandle as integer
dim strLineData as string
dim strFileName as string
dim lngRowNumber as long
strFileName = "c:MyFile.txt"
intFileHandle = FreeFile
open strFileName for intput as intFilehandle
lngRowNumber = 1
do while not eof(intFileHandle)
Line Input #intFileHandle, strLineData
if instr(1,strLineData,"Hello",vbTextCompare) > 0 then
Debug.print "Row Number:=" & cstr(lngRowNumber)
end if
lngRowNumber = lngRowNumber +1
loop
close intFilehandle