Visual Basic - metodo add

Private Sub Command1_Click()
Set miamigo = misamigos.Add

miamigo.nombre = Text1
miamigo.edad = Text2
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub
que error tiene este codigo que me da error en add

Qué es eso?????????
Explícate mejor