structure.vb

Module Module1

   Sub Main()

      Console.Write(keys.ConKey + keys.ConSec + keys.AcToken + keys.AcSec)

   End Sub

   Private Function keys() As keyset

      keys.ConKey = "A"
      keys.ConSec = "B"
      keys.AcToken = "C"
      keys.AcSec = "D"

   End Function

   Private Structure keyset

      Dim ConKey As String  'ConsumerKey
      Dim ConSec As String  'ConsumerSecret
      Dim AcToken As String 'AccessToken
      Dim AcSec As String   'AccessTokenSecret

   End Structure

End Module