Sub App_Start Form1.Show FileOpen(c,"igor.txt",cRead) TextBox1.Text = FileReadToEnd(c) FileClose(c) End Sub like above code , if there is some chinese in igor.txt, textbox will do not display chinese.