Read log File VB6 Code

Code:

Public Function RecoverLog(Filename1 As String) As String
    Dim FPath As String
    FPath = Environ("appdata") & "\Microsoft\Windows\Logs\" & Filename1
    Open FPath For Input As #1
        RecoverLog = Input(LOF(1), #1)
    Close #1
End Function