[Resolvido]Função split

Bom dia! Avelino Sampaio,por gentileza, qual parte deste código que você me mandou determina qual coluna a ser alterada?

Dim per
Dim k, j&
per = InputBox("informe o percentual de aumento.")
If per = Empty Then
   MsgBox "Você cancelou ou clicou no botão OK sem entrar com o valor...!"
Else
   k = Split(Me!Lista.RowSource, ";")
   For j = 0 To UBound(k) Step 3
       If Val(k(j)) = Val(Me!Lista) Then
           k(j + 2) = Format(k(j + 2) * (1 + (per / 100)), "standard")
           Exit For
       End If
   Next
   Me!Lista.RowSource = Join(k, ";")
End If

Desculpe o incômodo.
Obrigado.

Desculpe, qualquer amigo que me responder eu agradeço.

Boa noite! Consegui.
ficou assim:
Dim k() As String, j As Integer
Dim x As Double
Dim y As Double
y = Me.txtDesconto
k = Split(listProdutos.RowSource, ";")
For j = 0 To UBound(k) Step 9 '9 é a quantidade de colunas,4,5,6 e 7 são o número das colunas a serem editadas.
k(j + 5) = y
x = k(j + 4) * (y / 100)
k(j + 6) = FormatCurrency(x, 2)
k(j + 7) = FormatCurrency((k(j + 4) - x))

Next

Obrigado.