Can you take specific text from a textbox and input it into a messagebox?

[magtime]

I have a messagebox that asks if I want to delete a specific ebook from my listbox.
The message says, "“Do you want to remove the x eBook?” the x needs to be the title of the book selected.
This is what I have:

    Private Sub btnRemove_Click(sender As Object, e As EventArgs) Handles btnRemove.Click
        ' removes the selected line from the list box
        Dim x As String = lstEbooks.Text()

        If MessageBox.Show(“Do you want to remove the " & 
                        x & " eBook?”,
                       "eBooks", MessageBoxButtons.YesNo,
                        MessageBoxIcon.Warning,
                           
                         MessageBoxDefaultButton.Button1) 
                         = DialogResult.Yes Then

            ' if a line is selected, remove the line
            If lstEbooks.SelectedIndex <> -1 Then
                lstEbooks.Items.RemoveAt(lstEbooks.SelectedIndex)
            End If
        End If
    End Sub

Each line in the textbox has Title, Author, and Price
So, my x is showing Title, Author, and Price.

Examples:

Textbox shows:
Allegiant Veronica Roth 3.99
Divergent Veronica Roth 2.99

My message is showing:
Do you want to remove the Allegiant Veronica Roth 3.99 eBook?

What I want is: Do you want to remove the Allegiant eBook?

Please, any suggestions?

Thanks


Here is the full program:

Option Explicit On
Option Strict On
Option Infer Off
' Name:         Ebook Project
' Purpose:      Adds and deletes list box entries
'               Reads information from a sequential access file
'               Writes information to a sequential access file
' Programmer:   Amanda Lovett on 04-07-17

Imports System.Reflection

Public Class frmMain

    Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
        ' fills the list box with data from 
        ' a sequential access file

        Dim inFile As IO.StreamReader
        Dim strInfo As String

        ' verify that the file exists
        If IO.File.Exists("Ebooks.txt") Then
            'open the file for input

            inFile = IO.File.OpenText("Ebooks.txt")
            ' process loop instructions until end of file
            Do Until inFile.Peek = -1
                strInfo = inFile.ReadLine
                lstEbooks.Items.Add(strInfo)
            Loop
            inFile.Close()
            ' select the first line in the list box
            lstEbooks.SelectedIndex = 0
        Else
            MessageBox.Show("Can't find the Ebooks.txt file",
                            "eBooks", MessageBoxButtons.OK,
                            MessageBoxIcon.Information)
        End If
    End Sub

    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
        ' adds eBook information to the list box

        ' declare variables
        Dim strTitle As String
        Dim strAuthor As String
        Dim strPrice As String
        Dim strConcatenatedInfo As String
        Dim dblPrice As Double

        ' get the eBook information
        strTitle = InputBox("Title:", "eBooks")
        strAuthor = InputBox("Author:", "eBooks")
        strPrice = InputBox("Price", "eBooks")

        ' format the price, then concatenate the input
        ' items, using 40 characters for the title, 
        ' 35 characters for the author, and 5 
        ' characters for the price
        Double.TryParse(strPrice, dblPrice)
        strPrice = dblPrice.ToString("n2")
        strConcatenatedInfo = strTitle.PadRight(40) &
            strAuthor.PadRight(35) & strPrice.PadLeft(5)

        ' add the information to the list box
        lstEbooks.Items.Add(strConcatenatedInfo)
    End Sub

    Private Sub btnRemove_Click(sender As Object, e As EventArgs) Handles btnRemove.Click
        ' removes the selected line from the list box
        Dim x As String = lstEbooks.Text()

        If MessageBox.Show(“Do you want to remove the " & x & " eBook?”,
                        "eBooks", MessageBoxButtons.YesNo,
                        MessageBoxIcon.Warning,
                           MessageBoxDefaultButton.Button1) = DialogResult.Yes Then
            ' if a line is selected, remove the line
            If lstEbooks.SelectedIndex <> -1 Then
                lstEbooks.Items.RemoveAt(lstEbooks.SelectedIndex)
            End If
        End If
    End Sub

    Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        ' save the list box information

        ' declare a StreamWriter variable
        Dim outFile As IO.StreamWriter

        ' open the file for output
        outFile = IO.File.CreateText("Ebooks.txt")

        ' write each line in the list box
        For intIndex As Integer = 0 To lstEbooks.Items.Count - 1
            outFile.WriteLine(lstEbooks.Items(intIndex))
        Next intIndex

        ' close the file
        outFile.Close()

    End Sub

    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
End Class

[Luk3r]

I think you could benefit from doing something similar to this, assuming your textbox items always have the same format, where the word you want to display is followed by a space:

Dim x As String = lstEbooks.Text.SubString(0, lstEbooks.Text.IndexOf(" "))