[Angel Sánchez]

Hola Andres, en tu Sub rpok() tu tienes la siguiente linea:

Dim d, t, R As Single

Con eso has definido R como Single, pero el resto están definidas como Variant (valor por defecto al no asignarlas tipo). Para solucionar esto solo define tus variables de la siguiente forma:

Dim d As Single, t As Single, R As Single

Con eso ya debería de funcionar. No se si @hugoivanvr tenga algún otro comentario que agregar.

Fuente: http://www.mvp-access.com/foro/el-tipo-de-argumento-byref-no-coincide_topic83219.html