Thanks mark i tried the following and debug show nothing

VB Code:
  1. Private Sub Command1_Click()

  2. Dim strText As String

  3. Open App.Path & "\00000712.log" For Input As #1

  4.             strText = Input(LOF(1), #1)

  5.                 Debug.Print strText

  6.                 Close #1

  7. End Sub