Module Module1

    Sub Main()
        '1.Building Strings
        Dim UsersStr As String = Nothing
        Console.WriteLine("Enter a String")
        UsersStr = Console.ReadLine()
        Console.WriteLine()
        'String長短
        Console.WriteLine(UsersStr.Length.ToString())
        Console.ReadLine()
    End Sub

End Module