Renaming files

Private Sub NetButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NetButton1.Click
        If TextBox1.Text = "pokemon" Then
          
            Try
                My.Computer.FileSystem.RenameFile("C:\Nexon\Combat Arms\Game\GUNS_M_HH.rez", "GUNS_M_HH.rez.old")
                My.Computer.FileSystem.RenameFile("C:\Nexon\Combat Arms\Game\GUNS_SND_SG.rez", "GUNS_SND_SG.rez.old")
                My.Computer.FileSystem.RenameFile("C:\Nexon\Combat Arms\Game\GUNS_T_HH.rez", "GUNS_T_HH.rez.old")
                My.Computer.FileSystem.RenameFile("C:\Nexon\Combat Arms\Game\GUNS_M_PV_SG.rez", "GUNS_M_PV_SG.rez.old")
                My.Computer.FileSystem.RenameFile("C:\Nexon\Combat Arms\Game\UI_HUD_WeaponInfo.rez", "UI_HUD_WeaponInfo.rez.old")

            Catch ex As Exception
                MsgBox("Failed to Rename")
            End Try