关于调用子过程带有数组参数的问题

--------------------编程问答-------------------- n1 = Right(r1(), m1)

红色的挎号错误，不需要 --------------------编程问答-------------------- 程序执行到这For m1 = 1 To Len(r1())就提示错误了，而且把r1()的括号去掉也提示同样的错误 --------------------编程问答-------------------- Private Sub sz(ByVal l1, r1 As String)

n1 = Right(r1, m1) --------------------编程问答-------------------- 这样的话，执行到call sz(a,s)时，提示byref参数类型不符，这里的s是数组类型，而r1是字符型，参数传递时肯定不对。恳求高手指点。 --------------------编程问答--------------------

'以下，增加红色位置，删除蓝色位置

If Len(s(i)) > 0 Then

Call sz(a, s(i))

Call wb(b, s)

......





Private Sub sz(ByVal l1, r1() As String)

Dim n1 As String

Dim m1 As Integer

  For m1 = 1 To Len(r1())                      

  n1 = Right(r1(), m1)

  If IsNumeric(n1) = True Then

    l1 = n1

  End If

  Next m1

--------------------编程问答-------------------- 这样的话，执行到call sz(a,s)时，提示byref参数类型不符，这里的s是数组类型，而r1是字符型，参数传递时肯定不对。恳求高手指点。 

哎，你的command_Click　调用的地方，当然也要相应的改啊，传字符过来啊，

我看你的sz function就是处理一个字符串，那有这么复杂啊 --------------------编程问答--------------------
'以下，增加红色位置，删除蓝色位置
If Len(s(i)) > 0 Then
Call sz(a, s(i))
Call wb(b, s)
......


Private Sub sz(ByVal l1, r1() As String)
Dim n1 As String
Dim m1 As Integer
  For m1 = 1 To Len(r1())                      
  n1 = Right(r1(), m1)
  If IsNumeric(n1) = True Then
    l1 = n1
  End If
  Next m1 --------------------编程问答-------------------- 楼上的程序输入这一段Call sz(a, s<SPAN style="COLOR: #ff0000">(i)</SPAN>)时，提示缺少列表分隔符或）。
恳求高手指点 --------------------编程问答-------------------- 我现在不懂是，调用子过程时r1（）数组参数如何设置，才能把s数组参数传递给r1（）。 --------------------编程问答-------------------- 怎么没人回答我的问题啊？ --------------------编程问答-------------------- 5楼/7楼已经回答了你的问题！
根据提示修改原代码，不要复制回复的代码。 --------------------编程问答-------------------- 我没有明白5楼“s<SPAN style="COLOR: #ff0000">(i)</SPAN>) ”这个是什么意思？
按照7楼说的我做了，提示错误。 --------------------编程问答-------------------- 楼主似乎没学语文的。


7F 已经说得很清楚了。

补充：VB ,  VBA