codice:
  Dim pb(14) As Integer
        pb(1) = Val(txtpb1.Text)
        pb(2) = Val(txtpb2.Text)
        pb(3) = Val(txtpb3.Text)
        pb(4) = Val(txtpb4.Text)
        pb(5) = Val(txtpb5.Text)
        pb(6) = Val(txtpb6.Text)
        pb(7) = Val(txtpb7.Text)
        pb(8) = Val(txtpb8.Text)
        pb(9) = Val(txtpb9.Text)
        pb(10) = Val(txtpb10.Text)
        pb(11) = Val(txtpb11.Text)
        pb(12) = Val(txtpb12.Text)
        pb(13) = Val(txtpb13.Text)
        pb(14) = Val(txtpb14.Text)

        Dim nome(14) As String
        nome(1) = txtp1.Text
        nome(2) = txtp2.Text
        nome(3) = txtp3.Text
        nome(4) = txtp4.Text
        nome(5) = txtp5.Text
        nome(6) = txtp6.Text
        nome(7) = txtp7.Text
        nome(8) = txtp8.Text
        nome(9) = txtp9.Text
        nome(10) = txtp10.Text
        nome(11) = txtp11.Text
        nome(12) = txtp12.Text
        nome(13) = txtp13.Text
        nome(14) = txtp14.Text


        pbgiac = (Val(TextBox3.Text)) * 100
        i = 0
        If pbgiac <= 0 Then
            MsgBox("Immettere un valore > di 0", MsgBoxStyle.OkOnly, "Pasta di cacao")
            Exit Sub
        End If
        For i = 1 To 14
            If Val(pbgiac) < pb(i) Then
                diff = pb(i) - Val(pbgiac)
                For g = (i + 1) To 14
                    sum = (sum + pb(g))
                Next g

                MsgBox(("Mancano q.li " & (Val(diff) / 100) & " per " & nome(i) & " (" & (i) & ")" & Chr(10) & Chr(13) & Chr(10) & Chr(13) & "Q.li " & (Val(sum) / 100) & " per il resto della produzione" & Chr(10) & Chr(13) & Chr(10) & Chr(13) & "Totale Necessario =  q.li " & ((Val(sum) / 100) + (Val(diff) / 100))), MsgBoxStyle.OkOnly, "Pasta di cacao")
                btnpastabio.Text = "-" & ((Val(sum) / 100) + (Val(diff) / 100))

                Exit Sub
            End If
            resto = Val(pbgiac) - pb(i)
            pbgiac = resto
        Next i
        If resto > 0 Then
            MsgBox("Avanzano q.li " & (Val(resto) / 100), MsgBoxStyle.OkOnly, "Pasta di cacao")
            btnpastabio.Text = "+" & (Val(resto) / 100)
        Else
            MsgBox("Q.tà di pasta nel serbatoio esatta" & Chr(10) + Chr(13) & " per la produzione odierna!", MsgBoxStyle.OkOnly, "Pasta di cacao")
            btnpastabio.Text = "="
        End If

    End Sub
Vorrei poter cambiare la proprietà backcolor del textbox a cui Nome(i) fa riferimento che sarebbe il nome del prodotto.