After saving this code it appeared that the line c01=.... has not been indented.
Now I am editing this post and will post the changes.

[vba]Sub snb()
msgbox "this is only an example"

open "G:\OF\example.txt for input as #1
c01=input(LOF(1),1)
close #1
end sub[/vba]