Read text File

Read textfile to var
Open Fname For Input As 1
TBlock = Input(LOF(1), 1)
Close #1



End Sub


Function ReadFile(fname)
Open fname For Input As #1
ReadFile = Input(LOF(1), #1)
Close #1
End Function