sub main()
dim res as integer

res=MISuma(1,1)
msgbox res
'imprime 2! jajaja
end sub

public function MISuma(arg1 as integer, arg2 as integer)
 dim resultado as integer

 resultado=arg1 + arg 2
 MISuma=resultado 'asignas la var resultado a la funcion, un seteo simple

end function

lo que podriamos hacer es crear un antiscript especializado en vbs... todos programamos vbs y juntos podriamos eliminar la amenaza vbs aunque poco o nada nos conviene. pero esto tiene mercado.

Cuando quieras.

Saludos desde Asunción - Paraguay.


Roñe'eta upéi chera'a!

Eh?

Si esa solucion es la que buscaban entonces se expresaron mal. No se si lo que quieren hallar en el ancho de bit de un tipo de dato especifico. Si es eso hagan un programa en C usando sizeof() que VB (creo) no trae funciones implicitas de este tipo.
Que yo sepa no existen variables tipo ascii y archivos ascii serian aquellos guardados en cod ascii, pero un archivo, independiente de su sistema de codificacion, puede ser abierto en modo binario con
Open pathArchivo for binary as #n
'aca hace lo que queres.
close #n

Proba un cadena de conexion nueva y actualizada para ese motor. La Connection String siempre a mi me creo problemas usando el DAO al variar la dll de referencia para motores viejos no soportados. En propiedades del control ADO conecta manualmente y proba la conexion a tu base de datos luego copiala o guardala como variable string para modificarla en run time, no se si esta posible solucion ya la posteron pero recomiendo que lo pruebes.

usa una variable tipo control que apunte a todos los check box de tu formulario que luego con un bucle for each podes recorrer y verificar su estado con una condicional checked o unchecked donde al mismo tiempo lo vaya guardando en un array utilizando el cero o uno que mencionaste. bastante simple

Particularmente pienso que es imposible...
Podes llegar con mucho esfuerzo a algo que simule ser un antivirus pero de alli a que sea minimamente aceptable para este concepto es otra cosa.

Algo de la misma magnitud que yo trate de hacer fue una simulacion de compilador + debugger pero es bastante complejo, pa no llamarle totalmente dificil, pero algo funciono.
jajaja. un lenguaje totalmente en español y con mis modismos. jaja
Saludos

Por que no le pagaste mas?

No podes venir y pedir ayuda de la nada con esa historia de jefe maligno.
De cualquier manera es imposible ayudarte con la informacion que porvees.

sub unicodechar()
on error goto error
dim i as long
for i =1 to 65000
list1.additem i & " - " & chrw(i)
doevents
next
exit sub
error:
msgbox err.description,,"Error en: " & i
end  sub

no se cual es el limite superior del codigo unicode (alrededor de los 65000 y un poco mas). asi mira cual simbolo corresponde a cual nro (en decimal) en tu sistema sin el mapa de caracteres.

Eh?
Queres ver por ej. la frase "que carajo?" en modo binario?

Si es eso, create una sub que transforme cada letra en su equivalente ascii (decimal) con asc() y luego create otra sub que convierta lo decimal a binario.

Si queres codigo, avisa.