Import data from text file

[keviny22]

I tried this, but it still returning the CrLf symbol and not performing the CrLf action.

Dim s As String
Dim fn As Integer
fn = FreeFile

Open strName For Input As #fn

Do Until EOF(1)

txtContents = Input(LOF(fn), #fn) & s
Loop

Close #fn