Private Type MeinTyp
  Name As String
  Adresse As String
End Type

Debug.Print "Name=" + MeinTypVariable.Name
Debug.Print "Adresse=" + MeinTypVariable.Adresse

Dim a(2) As String, b As Variant
a(0) = "test"
a(1) = "test2"
a(2) = "test3"
For Each b In a
  Debug.Print b
Next

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.