@kettch: one minor edit.  Subs don't return values in VB.

Function GetGuy() as Guy
    Dim tempGuy as New Guy
    tempGuy.Name = "Fred"
    tempGuy.Age = 42
    tempGuy.IsAwesome = True
    return tempGuy
end function