vb远程链接opc服务器问题（基础）

源代码和解释如下：

' 获取所有OPC服务器:OPC_GetAllServers
' 参数:
'       RemoteMachineName: 远程计算机名称, [可选参数], 如果查询本地计算机上的OPC服务器则忽略此参数;
'                           如果查询远程计算机上的OPC服务器则输入远程计算机的IP地址(如"192.168.1.100")或者计算机名称
' 返回值: 保存所有OPC服务器名称的集合(String集合)
Public Function OPC_GetAllServers(Optional RemoteMachineName As String) As Collection
    Set OPC_ServerCollection = New Collection                           ' 创建OPC_ServerCollection集合对象
    Dim I As Integer
    On Error GoTo ErrorHandler
        Set OPC_ServerObj = New OPCServer                               ' 创建OPC服务器对象
        Dim AllServers As Variant
        AllServers = OPC_ServerObj.GetOPCServers(RemoteMachineName)     ' 获取所有OPC服务器的名称(返回的是一个String数组)
        For I = LBound(AllServers) To UBound(AllServers)
            OPC_ServerCollection.Add AllServers(I)                      ' 将OPC服务器名称添加到OPC_ServerCollection集合中
        Next I
        Set OPC_ServerObj = Nothing                                     ' 释放OPC服务器对象
        Set OPC_GetAllServers = OPC_ServerCollection                    ' 返回OPC_ServerCollection集合
        Exit Function
' 出错处理
ErrorHandler:
    MsgBox "获取所有OPC服务器失败!", vbOKOnly, "错误"                   ' 出错提示
    Set OPC_GetAllServers = OPC_ServerCollection                        ' 返回OPC_ServerCollection集合
End Function
请教各位老师
'       RemoteMachineName: 远程计算机名称, [可选参数], 如果查询本地计算机上的OPC服务器则忽略此参数;
'                           如果查询远程计算机上的OPC服务器则输入远程计算机的IP地址
这句怎么修改。谢谢了

补充：VB ,  网络编程