Option Explicit
 
Private Type tSctructure
  vData As String
  vOTros() As String
End Type
 
Dim vtVar As tSctructure
 
Sub main()
    vtVar.vData = "BlackZeroX"
    MsgBox vtVar.vData
    Rem o tambien asi
    With vtVar
        .vData = "BlackZeroX"
        MsgBox .vData
    End With
End Sub