Con lo q te he dicho o con q? me interesa saber el problema 2-
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ú
Dim Data As String
Dim Usuario1() As String, Usuario2() As String
Dim Usuario3() As String
Data = "dato1|dato2|dato3|dato4|1 dato1|dato2|dato3|dato4|2 dato1|dato2|dato3|dato4|3"
Usuario1() = Split(Data, "|" & 1)
Usuario2() = Split(Usuario1(1), "|" & 2)
Usuario3() = Split(Usuario2(1), "|" & 3)
MsgBox Usuario1(0)
MsgBox Usuario2(0)
MsgBox Usuario3(0)