Visual Basic - Copy a full song and present it in a listbox

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim song As String

        song = InputBox("Insert song")

        ListBox1.Items.Add(song)

    End Sub

Option Explicit

Private Sub Command1_Click()

 Dim Song As String

 'Remplazara todos los tabuladores existentes

 Do While InStr(Text1.Text, vbTab)

  Text1.Text = Replace(Text1.Text, vbTab, " ")

 Loop

 'Remplazara los saltos de linea existentes por punto y coma

 Song = Text2.Text

 Do While InStr(Song, vbCrLf) > 0

  Song = Replace(Song, vbCrLf, ";")

 Loop

 'Agrega al List mostrando solo el nombre de la cancion

 List1.AddItem Trim(Text1.Text) + Space(200) + vbTab + Song

End Sub

Private Sub List1_Click()

 Dim Song As String

 Song = List1.Text

 'Extrae la cancion del ListBox

 Song = Mid(Song, InStr(Song, vbTab) + 1)

 'Remplazara los punto y coma por salto de linea

 Do While InStr(Song, ";") > 0

  Song = Replace(Song, ";", vbCrLf)

 Loop

 'Asigna la letra de la cancion al cuadro de texto

 Text3.Text = Song

End Sub

mSGbOX "_" + TrIM(TeXT1.teXt) + spACE(200) + vBTaB + SoNg + "_"