Module Module1
    Structure x
        Dim a As String
        Dim b As String
        Dim c As String
    End Structure
    Dim t As x
 
    Sub Main()
 
        t.a = "AA"
        t.b = "BB"
        t.c = "CC"
 
        Console.WriteLine("t.a = " & t.a)
        Console.WriteLine("tmp = " & tmp())
        t.b = "xx"
        Console.WriteLine("tmp = " & tmp())
        t.a = "00"
        Console.WriteLine("tmp = " & tmp())
        Console.Read()
    End Sub
 
    Function tmp() As String
        tmp = t.a & t.b & t.c
    End Function