Ah ... devi semplicemente usare una struttura tramite le istruzioni Type...End Type per definire il nuovo tipo di dato.
Per la Rect puoi scrivere
e dichiarare la variabile che ti serve concodice:Private Type RECT ' oppure Public se serve Left As Long Top As Long Right As Long Bottom As Long End Type
Dim r As RECT