Attribute VB_Name = "Module1"
Function ESTA_VACIA(ArgStr As String) As Boolean
   If Trim(ArgStr) = "" Then
      MsgBox "Campo Clave Vacio..."
      ESTA_VACIA = True
   End If
End Function
Function ENCONTRO_REG(ArgNum As Integer, ArgNum1) As Boolean
   ENCONTRO_REG = True
   If (ArgNum = 0) And (ArgNum1 = 4) Then
     ENCONTRO_REG = False
   End If
End Function