Option Explicit On
Option Strict On
Option Compare Binary
REM Option Infer Off
 
Imports System
 
Public Class Test
	Public Shared Sub Main() 
		Dim str1 As String = "1住所"
 
		REM SubStringメソッドの第一引数は添字。0から数え始める。
		REM SubStringメソッドの第二引数は長さ。
 
		Dim str2 As String = str1.SubString(0,2)
		Dim str3 As String = str1.SubString(2,1)
 
		System.Console.WriteLine(str2)
		System.Console.WriteLine(str3)
 
		Dim str4 As String = "あ住所"		
 
		Dim str5 As String = str4.SubString(0,2)
		Dim str6 As String = str4.SubString(2,1)
 
 
		System.Console.WriteLine(str5)
		System.Console.WriteLine(str6)
 
		REM 別に
		REM "1住所".SubString(0,2)とかでもいいけどね
 
 
	End Sub
End Class

T3B0aW9uIEV4cGxpY2l0IE9uCk9wdGlvbiBTdHJpY3QgT24KT3B0aW9uIENvbXBhcmUgQmluYXJ5ClJFTSBPcHRpb24gSW5mZXIgT2ZmCgpJbXBvcnRzIFN5c3RlbQoKUHVibGljIENsYXNzIFRlc3QKCVB1YmxpYyBTaGFyZWQgU3ViIE1haW4oKSAKCQlEaW0gc3RyMSBBcyBTdHJpbmcgPSAiMeS9j+aJgCIKCQkKCQlSRU0gU3ViU3RyaW5n44Oh44K944OD44OJ44Gu56ys5LiA5byV5pWw44Gv5re75a2X44CCMOOBi+OCieaVsOOBiOWni+OCgeOCi+OAggoJCVJFTSBTdWJTdHJpbmfjg6Hjgr3jg4Pjg4njga7nrKzkuozlvJXmlbDjga/plbfjgZXjgIIKCgkJRGltIHN0cjIgQXMgU3RyaW5nID0gc3RyMS5TdWJTdHJpbmcoMCwyKQoJCURpbSBzdHIzIEFzIFN0cmluZyA9IHN0cjEuU3ViU3RyaW5nKDIsMSkKCQoJCVN5c3RlbS5Db25zb2xlLldyaXRlTGluZShzdHIyKQoJCVN5c3RlbS5Db25zb2xlLldyaXRlTGluZShzdHIzKQoJCgkJRGltIHN0cjQgQXMgU3RyaW5nID0gIuOBguS9j+aJgCIJCQoKCQlEaW0gc3RyNSBBcyBTdHJpbmcgPSBzdHI0LlN1YlN0cmluZygwLDIpCgkJRGltIHN0cjYgQXMgU3RyaW5nID0gc3RyNC5TdWJTdHJpbmcoMiwxKQoKCQkKCQlTeXN0ZW0uQ29uc29sZS5Xcml0ZUxpbmUoc3RyNSkKCQlTeXN0ZW0uQ29uc29sZS5Xcml0ZUxpbmUoc3RyNikKCgkJUkVNIOWIpeOBqwoJCVJFTSAiMeS9j+aJgCIuU3ViU3RyaW5nKDAsMinjgajjgYvjgafjgoLjgYTjgYTjgZHjganjga0KCgoJRW5kIFN1YgpFbmQgQ2xhc3M=