Gracias , ya lo tengo XD
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCitarPublic Sub añadir(ByVal name As String, ByVal number As String, ByVal position As String)
Static j As Integer
j = CInt(position)
agenda(j).nombre = name
agenda(j).numero = number
agenda(j).posicion = position
ReDim Preserve agenda(j)
End Sub