Imports System Public Class MainClass Shared Sub Main(ByVal args As String()) DisplayAAAName() DisplayBBBName() End Sub Shared Sub DisplayAAAName() Dim myName As String myName = "AAA" Console.WriteLine(myName, "Scope Demo") End Sub Shared Sub DisplayBBBName() Dim myName As String myName = "BBB" Console.WriteLine(myName, "Scope Demo") End Sub End Class