Rafael explique melhor o que esta querendo porque só usei o seu código e ele funciona!!

Se a sua intenção é alterar o valor dos dados da agenda dentro da funcão usei o que vc postou e funcionou favor se não for isto o que quer seja mais claro.

 

Private Sub Command1_Click()
agenda1.nome = Text1.Text
agenda1.telefone = Text2.Text
End Sub

Private Sub Command2_Click()
Teste agenda1
End Sub

Private Sub Text1_GotFocus()
Text1.SelLength = 999
End Sub

Private Sub Text2_GotFocus()
Text2.SelLength = 999
End Sub

 

'no modulo

do mesmo modo que vc citou aqui nada mais