'変数を宣言し値を代入 Dim str As String = "21-0120" '先頭から2文字を取得する = "21" Dim s1 As String = str.Substring(0, 2) '3文字目から1文字を取得する = "-" Dim s2 As String = str.Substring(2, 1) '4文字目から最後まで取得する = "0120" Dim s3 As String = str.Substring(3)