Ah ... devi semplicemente usare una struttura tramite le istruzioni Type...End Type per definire il nuovo tipo di dato.

Per la Rect puoi scrivere

codice:
Private Type RECT  ' oppure Public se serve
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
e dichiarare la variabile che ti serve con

Dim r As RECT