Public Structure tTest
        Public strA As String
        Public intA As Integer
        Public blnA As Boolean
    End Structure
 
 
    Public Structure tTemp
        Public tT As tTest
        Public lngA As Long
    End Structure

       Dim tt As New tTest, ttm As New tTemp
        With ttm
            With .tT
                .strA = "stra"
                .intA = 100
                .blnA = True
            End With
            .lngA = -10000
        End With
 
        tt = ttm.tT