userdefinierte Types als Sub-Parameter

Sub obers starte kommt beim aufruf  test(rot)   [das Wort rot ist dann markiert] die Meldung:
Fehler beim kompilieren - Variable erforderlich - Zuweisung an diesen Ausdruck nicht möglich
was ist passiert?
der Code:
Private Type gelb
gaga As Integer
End Type

Sub obers()
Dim rot As gelb
rot.gaga = 5
test (rot)
End Sub


Sub test(ro As gelb)
MsgBox ro.gaga
End Sub