Hello!

I have a little problem with my collection object. When I try to add something to it, I get an error (91: Object variable or With variable not set.)
Here's the code I use:
Code:
Type Vpr
    vVpra As Collection
    oOdgo As Collection
End Type


Public kVpr As Vpr

Sub Add(str1, str2)
    With kVpr
        .vVpra.Add str1
        .oOdgo.Add str2
    End With
End Sub
What have I done wrong?
As much as I know there should be no errors. Or I forgot something?