text file to text box

i need to get a text file to text box.
i have:

Open cname & ".txt" For Input As #2
sho.Text = #2
Close #2

Code:

---

Open cname & ".txt" For Input As #1
sho.Text = Input$(LOF(1), 1)
Close #1

---

Don't use Input$ function for that kind of operation, open in Binary and use Get:

Code:

---

Dim buffer as string
Open file for binary as 1
  buffer=space(lof(1))
  Get#1,,buffer
close 1
  sho.text = buffer

---