Public Class Test
 
    Public Structure NameDaten
        Public Vorname As String
        Public Nachname As String
    End Structure
 
    Public Name As NameDaten
 
End Class
 
Public Class Form1
 
    Private Sub KP()
 
        Dim var As New Test
 
        var.Name.Vorname = "Fritz"
 
    End Sub
 
End Class

    Dim name As Test.NameDaten

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist