.
Yo personalemente solo cambiaria los punteros hacia las variables... igual no creo que nadie te ayude en la forma que lo pides el susodicho problema...

Dulces Lunas!¡.

.
Susodicho problema es el problema actual expuesto... soy de México y en españa me aprece que usan lo mismo...

mira que no miento:

http://www.wordreference.com/definicion/susodicho
http://www.google.com.mx/search?q=Susodicho+&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:es-MX:official&client=firefox-a.

Ahora ya vi mejor el codigo solo te dire que las variables de tipo string u otras tienden a tener constructores o similares esto por el SafeArray de VB6, aun no lo confirmo pero lo que si te puedo decir es que como estas COPIANDO solo los punteros al termino del proceso la variable N es destruida y como la variable Z tiene el mismo puntero intentara destruir algo que ya esta destruido, esto es con esactitud uno de los problemas que yo tube hace tiempo... lo resolvi cambiando punteros entre variables (  SwapPtr()  ); aun que viendolo mejor no es el mismo problema ya que la funcion StructureToVariant solo retorna un tipo de variable Array de byte, aun que se intento hacer algo similar...

Ahora TODO el codigo esta mal... la forma mas facil de pasar una variable "Struture" a un tipo "Variant" es esta

 
VariableVariant = VarianbleStructure
 
 

y viseversa (Solo del mismo tipo OJO con eso)

y para cambiar un puntero de variable por otra  puedes usar esta funcion que me hice para evitar un tipo crash con destruccion de variables al finalizar el proceso...

 
Option Explicit
 
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Any, ByVal Source As Any, ByVal Length As Long)
 
Public Sub SwapPtr(ByVal lngPtrOne As Long, ByVal lngPtrTwo As Long, Optional LenOFStructure As Long = 4)
If LenOFStructure < 1 Then Exit Sub
Dim Byt_Bytes()                     As Long
    ReDim Byt_Bytes(1 To LenOFStructure)
    Call CopyMemory(ByVal VarPtr(Byt_Bytes(1)), ByVal lngPtrOne, LenOFStructure)
    Call CopyMemory(ByVal lngPtrOne, ByVal lngPtrTwo, LenOFStructure)
    Call CopyMemory(ByVal lngPtrTwo, ByVal VarPtr(Byt_Bytes(1)), LenOFStructure)
End Sub
 
 

Dulces Lunas!¡.

Las estructuras deben tener un tamaño fijo, esto queire decir que si utilizas string vas a tener que darle una dimencion

Private Type st
    ss As String * 50
    ll As Long
End Type


de todas formas "creo" que aveces esto puede no funcionar, no recuerdo si era porque mesclaba integer, pero no me funciono.

creo que lo mas adecuado seria utilizar array de bits,

Private Type st
    tamañocadena as long
    cadena() as byte
    otracosa As Long
End Type


entonces en tamañocadena pones la dimencion del array de cadena().

bue nose igual proba con lo otro primero.

saludos.

EDITO IMPORTANTE:

OJO en una structura donde aya Strings, Arragles o similares que no tengan longitud de bites definidos previamente se sustituyen con el puntero hacia otra parte de la memoria es decir que se sustituyen por 4 bytes en cada uno donde aparezca (Punteros <<Long>>),

 
Private Type st
    ss As String
    ll As Long
End Type
 
 

Son 8 bytes por que? sencillo mira

4 bytes de puntero a la estructura de 8 bytes que contiene a si ves los punteros a los elementos de la estructura es decir:

 
Dim a as st  
dim lng_ptr as long
 
lng_ptr = Varptr(a)  ' <--- Puntero a la estructura es decir 4 bytes de tipo long
 
 

ese puntero ( el almacenado en -> lng_ptr) apunta a el puntero del inicio de tu estructura donde hay

4 bytes del String (Puntero)
4 bytes del tipo long (No es un putero ya es la variable)

= 12 bytes + los bytes a donde apuntan los 4 del string

Es decir Len() esta haciendo correctamente su trabajo... solo que actua de esta manera como lenb()

.

gracias a esto la estructura tiene un tamaño fijo y cada elemento es un apuntador (para los string u otros que no sean numeros), por lo tanto si quieres leer algo de X elemento y cambiar a otra estructura o variable etc puedes obtener esos 4 bytes del string e intercambiarlos con los de otra variable string o dentro de otra estructura de distinto tipo

Ejemplo:

 
Option Explicit
 
Private Type Estruct1
    st1 As String
    in1 As Long
    st2 As String
End Type
 
Private Type Estruct2
    st1 As String
    in1 As Long
    st2 As String
    in2 As Long
    st3 As String
End Type
 
Private Sub Form_Load()
Dim st1 As Estruct1
Dim st2 As Estruct2
Dim S   As String
 
    S = "BlackZeroX"
    st1.st1 = "infrangelux"
    Call SwapPtr(VarPtr(S), VarPtr(st1.st1), 4)
    Call SwapPtr(VarPtr(st1.st1), VarPtr(st2.st3), 4)
    MsgBox S
    MsgBox st1.st1
    MsgBox st2.st3
End Sub
 
 

en un modulo cualquiera...

 
Option Explicit
 
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Any, ByVal Source As Any, ByVal Length As Long)
 
Public Sub SwapPtr(ByVal lngPtrOne As Long, ByVal lngPtrTwo As Long, Optional LenOFStructure As Long = 4)
If LenOFStructure < 1 Then Exit Sub
Dim Byt_Bytes()                     As Long
    ReDim Byt_Bytes(1 To LenOFStructure)
    Call CopyMemory(ByVal VarPtr(Byt_Bytes(1)), ByVal lngPtrOne, LenOFStructure)
    Call CopyMemory(ByVal lngPtrOne, ByVal lngPtrTwo, LenOFStructure)
    Call CopyMemory(ByVal lngPtrTwo, ByVal VarPtr(Byt_Bytes(1)), LenOFStructure)
End Sub
 
 

Dulces Lunas!¡.

Perfecto ahora si entendí como funciona, muchas gracias!