文字列を分割する場合・・・

１．文字数が決まっている場合
　⇒　Left,Mid,Right関数などの使用

２．特定文字による分割
　⇒　InStr関数の使用

などの方法が考えられます。ここではそれぞれの使い方を紹介します。

１．文字数が決まっている場合

例えば・・・"03-0000-1111"という文字列（電話番号）があって、

・市外局番を抜き出したいとき⇒Left関数
・"0000"を抜き出したいとき⇒Mid関数
・"1111"を抜き出したいとき⇒Right
のように使います。

（例）Mid関数・・・Mid(対象文字列、開始位置、終了位置）

Sub Sample()

    Dim PhoneNum As String
    Dim RetVal As String

    PhoneNum = "03-0000-1111"
    RetVal = Mid(PhoneNum, 4, 4)
    MsgBox RetVal

End Sub

２．特定文字による分割

１．の例では電話番号のうち市外局番は2桁でしたが、東京や大阪以外の都市などの
ように3桁以上出会った場合、何文字目から何文字目まで、といった分割は上記3つ
の関数だけでは困難になります。このような場合にはInstr関数を用いて特定文字の
位置検索を行います。電話番号には"052-111-9999"というデータもあって、すべての
電話番号に対応できなければならない場合、ここでは区切り文字として"-"があります
ので、一つ目の"-"から二つ目までの間をMid関数で切り出せばよいことになります。

Sub Sample2()

    Dim PhoneNum As String
    Dim RetVal As String
    Dim FirstPos As Integer
    Dim NextPos As Integer

    PhoneNum = "052-111-9999"
    '区切り文字の位置を取得
    FirstPos = InStr(1, PhoneNum, "-", vbTextCompare) + 1
    NextPos = InStr(FirstPos, PhoneNum, "-", vbTextCompare)

    RetVal = Mid(PhoneNum, FirstPos, NextPos - FirstPos)
    MsgBox RetVal

End Sub

※最初の区切り位置に"+1"していることに注意してください。