Option Explicit
 
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
  ByVal destination_pointer As Long, _
  ByVal source_pointer As Long, _
  ByVal bytes As Long)
 
Private Type test
 s1 As String
 s2 As String
 s3 As String
 s4 As String
 s5 As String
End Type
Private Const TEST_ELEMENTS = 5 ' Beim erweitern des Typs anpassen!
 
 
Private Sub Form_Load()
Dim arr(1 To TEST_ELEMENTS) As String ' Array anlegen
Dim bla As test
 
' ein paar Zuweisungen
bla.s1 = "erstes Element"
bla.s3 = "drittes Element"
bla.s4 = vbNullString
bla.s5 = "ENDE"
CopyTypeToArray bla, arr ' Funktionsaufruf
MsgBox arr(1) & vbCrLf & arr(2) & vbCrLf & arr(3) & vbCrLf & arr(4) & vbCrLf & _
  arr(5) ' Testausgabe
End Sub
 
' Der Funktion wird einfach der Typ und das Array übergeben
Private Function CopyTypeToArray(ByRef struct As test, ByRef arr() As String)
Dim I As Long
Dim J As Long
Dim Min As Long
Dim Max As Long
 
Min = VarPtr(struct.s1) ' MUSS das erste Element des Typs sein
Max = Min + Len(struct) - 1
J = 0
For I = Min To Max Step 4
   J = J + 1
   CopyMemory VarPtr(arr(J)), I, 4
Next I
End Function

Gru?,
Nukeduke

if (youAreHappyAndYouKnowIt) {
???ClapYourHands();
}