Mega Downloads

Public Function readFile(lTxt As String, strFile As String)
Dim xLine As String, gFn As Integer, xLineCnt As Long
'created by d4rksoft
'function that read file from X Path
'First Define
gFn = FreeFile
' Opens a text file for input
On Error Resume Next
Open strFile For Input As gFn
xLineCnt = 1
' Reading the contents of the file
Do While Not EOF(gFn)
Line Input #gFn, xLine
xLine = xLine & vbCrLf
lTxt = lTxt & xLine
Loop
Form1.Text1.Text = lTxt
' Close the file
Close gFn
End Function

readFile Text1.Text, App.Path + "\txtLogFile.txt"