Open strTransFile For Input As #intFileHandle
    strRowInFile = Split(Input$(LOF(intFileHandle), #intFileHandle), vbCrLf)
    Close #intFileHandle