VBnet Script - Membuka txt file dan menampilkannya di textbox

Berikut ini adalah script bagaimana membuka file text (.txt) dan menampilknnya pada text box

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e as Syste.EventArgs) Handles Button1.Click
    Dim OP As OpenFileDialog = New OpenFileDialog
    OP,ShowDialog()
    If OP.FileName <> "" Then
         TextBox1.Text = IO.File.ReadAllText(OP.FileName.ToString)
    End If
End Sub

Demikian, semoga bermanfaat..