参数该如何传递呢
Private Shared Function ModifyPerson(ByVal reqbuffer() As Byte) As Byte()

Dim request As New IB1001Request(reqbuffer)
Dim resp As New IB1001Response()

Dim retBufferRequest() As Byte = Array.CreateInstance(GetType(Byte), request.length)
Array.Copy(request.buffer, retBufferRequest, request.length)
....

ExistMPPS(reqbuffer, IS_CP, IS_AM, IS_IB, IS_MPPSClient)
.....
End Function

Public Shared Sub ExistMPPS(ByVal reqBuffer() As Byte, ByRef IS_CP As Boolean, ByRef IS_AM As Boolean, ByRef IS_IB As Boolean, ByRef IS_MPPSClient As Boolean)
.....

Dim request As New IB1001Request(reqBuffer)
Dim resp As New IB1001Response()

End Sub

以上的写法是可以的，但我想将 request 在ExistMPPS过程中作参数传递可以吗，该如何写呢，谢谢！

我尝试用

Public Shared Sub ExistMPPS(ByVal request As IB1001Request, ByRef IS_CP As Boolean, ByRef IS_AM As Boolean, ByRef IS_IB As Boolean, ByRef IS_MPPSClient As Boolean)

但不成，请问是何原因呢

[解决办法]
因为ByVal是按值传递，如果在方法内New的话，只是将方法内定义的局部变量request指向新的地址而已，并不影响调用方。

所以应该用ByRef
[解决办法]
我尝试用

Public Shared Sub ExistMPPS(ByVal request As IB1001Request, ByRef IS_CP As Boolean, ByRef IS_AM As Boolean, ByRef IS_IB As Boolean, ByRef IS_MPPSClient As Boolean)

但不成，请问是何原因呢

==========
怎么不成？报什么错误？
把ByVal request As IB1001Request 改成ByVal request As object这样。
然后在用到request的地方用ctype (request,IB1001Request)试试看