Replace
MsgBox(FolderBrowserDialog1.SelectedPath)
With
TextBox8.Text = FolderBrowserDialog1.SelectedPath
in the Button1.Click event