[Source]Sound Changer

Public Class Form1
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Dir(TextBox1.Text + "\Game\BGM\") <> "" Then
            System.IO.File.SetAttributes(TextBox1.Text + "\Game\BGM\BGM_LOOP.mp3", System.IO.FileAttributes.Normal)
            Rename(TextBox1.Text + "\Game\BGM\BGM_LOOP.mp3", TextBox1.Text + "\Game\BGM\BGM_LOOP_2.mp3")
            IO.File.Move(TextBox2.Text + TextBox3.Text, TextBox1.Text + "\Game\BGM\")
            Rename(TextBox1.Text + "\Game\BGM\" + TextBox2.Text, TextBox1.Text + "\Game\BGM\BGM_LOOP.mp3")
        Else
            Label5.Text = "Status: BGM Failed!"
        End If
        Label5.Text = "Status: BGM Replaced!"

        If Dir(TextBox1.Text + "\Game\BGM\") <> "" Then
            System.IO.File.SetAttributes(TextBox1.Text + "\Game\BGM\Map_Loading.mp3", System.IO.FileAttributes.Normal)
            Rename(TextBox1.Text + "\Game\BGM\Map_Loading.mp3", TextBox1.Text + "\Game\BGM\Map_Loading_2.mp3")
            IO.File.Move(TextBox4.Text + TextBox5.Text, TextBox1.Text + "\Game\BGM\")
            Rename(TextBox1.Text + "\Game\BGM\" + TextBox5.Text, TextBox1.Text + "\Game\BGM\Map_Loading.mp3")
        Else
            Label5.Text = "Status: Loading Failed!"
        End If
        Label5.Text = "Status: Loading Replaced!"

        If Dir(TextBox1.Text + "\Game\BGM\") <> "" Then
            System.IO.File.SetAttributes(TextBox1.Text + "\Game\BGM\QRT_Count_BGM.mp3", System.IO.FileAttributes.Normal)
            Rename(TextBox1.Text + "\Game\BGM\QRT_Count_BGM.mp3", TextBox1.Text + "\Game\BGM\QRT_Count_BGM_2.mp3")
            IO.File.Move(TextBox6.Text + TextBox7.Text, TextBox1.Text + "\Game\BGM\")
            Rename(TextBox1.Text + "\Game\BGM\" + TextBox7.Text, TextBox1.Text + "\Game\BGM\QRT_Count_BGM.mp3")
        Else
            Label5.Text = "Status: BGM Failed!"
        End If
        Label5.Text = "Status: BGM Replaced!"
    End Sub
End Class