Spanish ¿ Como utilizar codigos de modulo para tener acceso a rutinas publicas ?

Funciones - 19: Code modules do not support Me keyword.
Funciones - 9: Variable 'rdcLink' no usada (warning #9)

Sub Process_Globals
    'Estas variables globales se declararán una vez cuando se inicie la aplicación.
    'Se puede acceder a estas variables desde todos los módulos.
    Type DBResult (Tag As Object, Columns As Map, Rows As List)
  Type DBCommand (Name As String, Parameters() As Object)
  Private const rdcLink As String = "http://192.168.1.40:17178/rdc"
End Sub

Sub AuditSQL (cTexto As String)
    Log("Entre a AuditSQL: " & cTexto)
End Sub

Sub CreateRequest As DBRequestManager
     'Por cada solicitud, se crea un nuevo DBRequest...
   Dim req As DBRequestManager
   req.Initialize(Me,rdcLink)
   Return req
End Sub

Sub CreateCommand(Name As String, Parameters() As Object) As DBCommand
   Dim cmd As DBCommand
   cmd.Initialize
   cmd.Name = Name
   If Parameters <> Null Then cmd.Parameters = Parameters
   Return cmd
End Sub

   req.Initialize("",rdcLink)

       Wait For (req) req_Result(res As DBResult)
       'work with result
       req.PrintTable(res)

Public Sub GetRecord (Command As String, parameters() As String) As ResumableSub
    Dim req As DBRequestManager = CreateRequest
    Dim cmd As DBCommand = CreateCommand(Command, parameters)
    Wait For (req.ExecuteQuery(cmd, 0, Null)) JobDone(j As HttpJob)
    If j.Success Then
        req.HandleJobAsync(j, "req")
        Wait For (req) req_Result(Res As DBResult)
        'work with result
        'req.PrintTable(Res)
    Else
        Log("ERROR: " & j.ErrorMessage)
    End If
    j.Release
    Return Res
End Sub

Wait For(jRDC.GetRecord("selectParteTrabajoView", Parametros)) Complete (Respuesta As DBResult) 'Modifica el tipo de respuesta, ya que ahora la sub devuelve un DBResult en vez de un Map

    Dim cUsuario = "PEPE", cNetName = "Mobil", cFecha = "2020-04-21", _
        cDet = cTexto, cTip = "A" , cTime = "12:30:00" As String
    Wait For (jConex.InsertRecord("auditSQL", Array(cFecha,cTime,cUsuario,cNetName,cDet,cTip)))

Array as String(cFecha,cTime,cUsuario,cNetName,cDet,cTip)

Public Sub InsertRecord (Command As String, parameters() As String)
    Dim cmd As DBCommand = CreateCommand(Command, parameters)
    Dim j As HttpJob = CreateRequest.ExecuteBatch(Array(cmd), Null)
    Wait For(j) JobDone(j As HttpJob)
    If j.Success Then
        Log("Inserted successfully!")
    End If
    j.Release
End Sub

jrdc.InsertRecord("pruebaINSERT", Array As String("jose", "2020-04-08 00:00:00", "prueba"))

'******************************************************************
'* AuditSQL() Sirve para GUARDAR la tira de Auditoria             *
'*           Recibe: cUsuario ---> Nombre del Usuario que ingresó *
'*                   cAuditoria -> Texto del contenido auditado   *
'*                                                                *
'*        Retorna: TRUE ---> Inserción exitosa                    *
'*                FALSE ---> Fallo al insertar                    *                       
'*************************************************** 21-04-2020 ***
Public Sub AuditSQL (cUsuario As String, cAuditoria As String) As ResumableSub
    DateTime.DateFormat = "yyyy-MM-dd"                        'Doy formato a la Fecha
    Dim cFecha = DateTime.Date(DateTime.Now) As String
    Dim cTime = DateTime.Time(DateTime.now) As String
    Dim cDet = "[Movil] " & cAuditoria  As String
    'Log("fecha: " & cFecha)
    Dim aCom() As String
    aCom = Array As String(cFecha,cTime, cUsuario,"TELEFONO",cDet,"A")
    Dim res As Boolean
    Dim cmd As DBCommand = CreateCommand("auditSQL", aCom)
    Dim j As HttpJob = CreateRequest.ExecuteBatch(Array(cmd), Null)
    Wait For(j) JobDone(j As HttpJob)
    res = j.Success
    If j.Success Then
        Log("Auditoría OK !!!")
    Else
        Log("Auditoría FALLO !!!")
    End If
    j.Release
    Return res
End Sub