Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If OpenFileDialog1.ShowDialog() = DialogResult.OK Then TextBox1.Text = IO.File.ReadAllText(OpenFileDialog1.FileName) End If End Sub End Class