Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.Items.Add("shoe                    20.09")
        ListBox1.Items.Add("pants                   60.09")

    End Sub

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

        '---create a new blank string of 35 characters
        Dim newItem As String = Space(35)

        '---insert new item at column/char zero from the text box
        newItem = newItem.Insert(0, txtItem.Text.Trim)

        '---insert the price at column/char 25 from the price text box
        newItem = newItem.Insert(25, txtPrice.Text.Trim)

        ListBox1.Items.Add(newItem)
    End Sub
End Class