Mid関数・Right関数・Left関数は文字列中の文字を切り出します

Sub 住所データ分解Mid()

'変数は文字列型で宣言する
    Dim ADD As String
    Dim Pre As String, Muni As String, Addr As String
    
'インプットボックスを使って入力する
        ADD = InputBox("グーグルマップの住所データを入力", Title:="GoogleMap住所")
        
'Mid関数で各部分を切り出しします
        Pre = Mid(ADD, 11, 3)
        Muni = Mid(ADD, 14, 4)
        Addr = Mid(ADD, 18, 26)
        
        MsgBox "都道府県は: " & Pre & vbCrLf & "市区町村は: " & Muni & vbCrLf & "番地: " & Addr

End Sub

Sub 住所データ分解Left()

'変数は文字列型で宣言する
    Dim ADD As String
    Dim Post As String

'インプットボックスを使って入力する
        ADD = InputBox("グーグルマップの住所データを入力", Title:="GoogleMap住所")
        
'Left関数で部分を切り出しします
        Post = Left(ADD, 10)
        
        MsgBox "郵便番号は: " & Post

End Sub

Sub 住所データ分解Right()

'変数は文字列型で宣言する
    Dim ADD As String
    Dim Addr As String

'インプットボックスを使って入力する
        ADD = InputBox("グーグルマップの住所データを入力", Title:="GoogleMap住所")
        
'Right関数で部分を切り出しします
        Addr = Right(ADD, 9)
        
        MsgBox "番地は: " & Addr

End Sub

Sub ISBN価格データ切り取り()

'変数uISBNは文字列型で宣言する
    Dim uISBN As String, Pri As Long
    
'インプットボックスを使って入力する
        uISBN = InputBox("価格ISBNを入力", Title:="価格ISBN")
        
'Mid関数で先頭から文字8個目から5桁を切り出す
'Val関数で文字列型の数値を数値型に戻しておく
        Pri = Val(Mid(uISBN, 8, 5))
        
        MsgBox "価格ISBN " & uISBN & vbCrLf & " 本体価格\ " & Pri

End Sub