If OpenFileDialog1.ShowDialog = DialogResult.OK Then filename = OpenFileDialog1.FileName RichTextBox1.LoadFile(filename) End If 'Set The Form Title Name As Filename..... Me.Text = filename