All pastes #19131 Raw Edit

Mine

public text v1 · immutable
#19131 ·published 2005-08-02 20:46 UTC
rendered paste body
Open strTransFile For Input As #intFileHandle
    strRowInFile = Split(Input$(LOF(intFileHandle), #intFileHandle), vbCrLf)
    Close #intFileHandle