Busca en PSC que hay un ejemplo con hecho con un type library de Eduardo Morcillo si mal no recuerdo.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú If [tu variable] Mod 100 = 0 Then
Doevents: Sleep 100
End If