Hola:
Pues solo debes hacer una asignacion directa a una variable, por ejemplo en el caso del primer pic:
dim dato as byte
PORTB = dato
asi, tendras en los pines de PORTB el valor de dato, recuerda que dato solo debe ser un valor de 8 bits.
y para el otro pic, solo debes haer lo contrario:
dim dato as byte
dato = PORTB
asi tienes en dato el valor de PORTB, no solo con portb, cualquier otro puerto tambien sirve.