Structure S Dim a as String Sub NEW() end Sub End Structure Module M Sub Main() dim x as S End Sub End Module