Dim intFile As Integer
Dim strText As String
intFile = FreeFile
Open "C:\Test.txt" For Input As #intFile
strText = Input(LOF(1), 1)
Close #intFile