主题：[求助]请求简化代码

请求简化代码：

'''
Dim dts() As String = "项目1、项目2、项目3、项目4、项目5、项目6".split("、")
Dim dt1 As String = "项目3"
Dim dts1 As String
Dim dt2 As String = "3.1%"
For i As Integer = 0 To dts.Length - 1
    If i = Array.IndexOf(dts, dt1) Then
        dts1 = dts1 & "、" & dt1 & "=" & dt2
    Else
        dts1 = dts1 & "、"  & dts(i)
    End If
Next
dts1 = dts1.Trim("、")
msgbox(dts1)

是否要简化一下，直接修改指定项？