Pytanie Jak ustawić resetowanie textboxa

Cześć. 
Mam taki problem, że nie mam pojęcia jak zrobić kasowanie textboxa.

Chciałem by to działało na zasadzie. Wybieramy opcje z comboboxa-> wciskamy generate-> Pasek progressbar się ładuje, gdy dojdzie do końca->  wyskakuje tekst w textbox

wybranie innej opcji z comboboxa-> generate ->Pasek progressbar się ładuje, gdy dojdzie do końca -> i wyskakuje inna zawartość textboxa

Mam taki kod co jest źle? Zaznaczam, że specem nie jestem więc bez hate'u proszę  

Public Class Form1    Private Sub RedemptionButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedemptionButton1.Click        System.Diagnostics.Process.Start("http://www.youtube.com")    End Sub    Private Sub RedemptionButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedemptionButton2.Click        System.Diagnostics.Process.Start("http://www.youtube.com")    End Sub    Dim s1 As String = "Wyświetlany skrypt1" & vbCrLf & "Wyświetlany skrypt1" & vbCrLf & "Wyświetlany skrypt1" ' Opcja1    Dim s2 As String = "Wyświetlany skrypt2" ' Opcja2     Dim s3 As String = "Wyświetlany skrypt3" ' Opcja3     Dim s4 As New System.IO.StreamReader("E:\...\Skrypty.txt") ' Opcja4     Private Sub ButtonBlue1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonBlue1.Click        Timer1.Start()        If PerplexProgressBar1.Value = PerplexProgressBar1.Maximum Then            PerplexProgressBar1.Value = 0        End If    End Sub    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        PerplexProgressBar1.Value += 10        If PerplexProgressBar1.Value = PerplexProgressBar1.Maximum Then            Timer1.Stop()            RedemptionComboBox1.SelectedItem = "Opcja1"            MultiTxtBox1.Text = "" & s1 & ""            RedemptionComboBox1.SelectedItem = "Opcja2"            MultiTxtBox1.Text = "" & s2 & ""            RedemptionComboBox1.SelectedItem = "Opcja3"            MultiTxtBox1.Text = "" & s3 & ""            RedemptionComboBox1.Text = "Opcja4            MultiTxtBox1.Text = s4.ReadToEnd        End If        RedemptionLabel1.Text = PerplexProgressBar1.Value & (" % ")    End SubEnd Class

Dzisiaj miałem chwilę i sprawdziłem dokładnie co tam gra  
Problem był w tym, że źle wstawiłem opcje wczytywania

Public Class Form1    Private Sub RedemptionButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedemptionButton1.Click        System.Diagnostics.Process.Start("http://www.youtube.com")    End Sub    Private Sub RedemptionButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedemptionButton2.Click        System.Diagnostics.Process.Start("http://www.youtube.com")    End Sub    Dim s1 As String = "Wyświetlany skrypt1" & vbCrLf & "Wyświetlany skrypt1" & vbCrLf & "Wyświetlany skrypt1" ' Opcja1    Dim s2 As String = "Wyświetlany skrypt2" ' Opcja2    Dim s3 As String = "Wyświetlany skrypt3" ' Opcja3    Dim s4 As New System.IO.StreamReader("E:\Skrypty.txt") ' Opcja4    Private Sub ButtonBlue1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonBlue1.Click        Timer1.Start()        If PerplexProgressBar1.Value = PerplexProgressBar1.Maximum Then            PerplexProgressBar1.Value = 0        End If    End Sub    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        PerplexProgressBar1.Value += 10        If PerplexProgressBar1.Value = PerplexProgressBar1.Maximum Then            Timer1.Stop()            If RedemptionComboBox1.SelectedItem = "Opcja1" Then                MultiTxtBox1.Text = "" & s1 & ""            End If            If RedemptionComboBox1.SelectedItem = "Opcja2" Then                MultiTxtBox1.Text = "" & s2 & ""            End If            If RedemptionComboBox1.SelectedItem = "Opcja3" Then                MultiTxtBox1.Text = "" & s3 & ""            End If            If RedemptionComboBox1.Text = "Opcja4" Then                MultiTxtBox1.Text = s4.ReadToEnd            End If        End If        RedemptionLabel1.Text = PerplexProgressBar1.Value & (" % ")    End SubEnd Class

PS. Załamałem się jak zobaczyłem jak ja to napisałem wcześniej

Źle:

RedemptionComboBox1.SelectedItem = "Opcja1"            MultiTxtBox1.Text = "" & s1 & ""            RedemptionComboBox1.SelectedItem = "Opcja2"            MultiTxtBox1.Text = "" & s2 & ""            RedemptionComboBox1.SelectedItem = "Opcja3"            MultiTxtBox1.Text = "" & s3 & ""            RedemptionComboBox1.Text = "Opcja4            MultiTxtBox1.Text = s4.ReadToEnd

Prawidłowo:

 If RedemptionComboBox1.SelectedItem = "Opcja1" Then                MultiTxtBox1.Text = "" & s1 & ""            End If            If RedemptionComboBox1.SelectedItem = "Opcja2" Then                MultiTxtBox1.Text = "" & s2 & ""            End If            If RedemptionComboBox1.SelectedItem = "Opcja3" Then                MultiTxtBox1.Text = "" & s3 & ""            End If            If RedemptionComboBox1.Text = "Opcja4" Then                MultiTxtBox1.Text = s4.ReadToEnd            End If