LastIndexOf y substring

Lastindexof sirve para indicar la posición del ultimo carácter que hallamos indicado de una cadena
Substring es para obtener una subcadena dentro de un texto


 Dim texto As String
        Dim precio As Double
        Dim num As Integer
        Dim articulo As String
        texto = e.Data.GetData(DataFormats.Text).ToString
        num = texto.LastIndexOf(" ")
        precio = texto.Substring(num)
        articulo = texto.Substring(0, num)
        precio = precio + (precio * 0.1)
        texto = articulo & " " & precio
        Listventas.Items.Add(texto)
        Texttotal.Text = Texttotal.Text + precio


Con esto estamos cogiendo un precio que está separado por un texto entre un espacio, que podría ser ("Galletas 4") así num coge la posición del espacio, precio empieza a coger los caracteres desde ese espacio (el 4) y articulo coge desde la posición 0 hasta la posicion num ("Galletas") luego aumento el precio un 10% y vuelvo a pegar el texto


 Dim texto As String
        Dim precio As Double
        Dim num As Integer
        Dim articulo As String
        Dim precioaumentado As Double
        texto = e.Data.GetData(DataFormats.Text).ToString
        num = texto.LastIndexOf(" ")
        precio = texto.Substring(num)
        articulo = texto.Substring(0, num)
        precioaumentado = (precio * 100) / 110
        texto = articulo & " " & precioaumentado
        Listalmacen.Items.Add(texto)
        Texttotal.Text = Texttotal.Text - precio

este código lo que haces es devolver el precio a su estado original (quitándole el 10% del principio)