主题：[求助]替换问题

我用Replace(OldValue, NewValue)把路径去掉，老是搞不好，请指点

If e.Sender.Name = "GSP认证" Then
    Dim Arr() As String={ ProjectPath &"制度",ProjectPath &"表格"}
    '取运行目录
   
    e.Sender.Items.clear
    For i As Byte=0 To 1
        butt & arr(i) &"\"

        MenuButton = New RibbonMenu.MenuButton(buttonname)
        MenuButton.Text="(" & arr(i) & ")"      替换成制度、表格

        MenuButton.ToolTip=buttonname
        e.Sender.Items.Add(MenuButton)
    Next
End If