In that case this will suffice:

Sub snb()
   Workbooks.Open "E:\example.txt", , , 3
End Sub