Cambiarle el nombre a un archivo en Visual Basic.NET 2008

para este ejemplo agregamos 2 botones y en el boton examinar ponemos este codigo:

' presentar al usuario un cuadro de diálogo
        Dim openFile As New OpenFileDialog
        ' si elegimos algún archivo
        Dim result As DialogResult = openFile.ShowDialog()
        If result = DialogResult.OK Then
            TextBox1.Text = openFile.FileName
        End If

al pulsar el boton nos saldra este objeto:

Escribimos eln ombre del archivo en el textbox2 y al pulsar el boton Cambiar Nombre lo habra cambiado, para esto escribimos este codigo en el evento click del boton Cambiar Nombre

My.Computer.FileSystem.RenameFile(TextBox1.Text, TextBox2.Text)