'文字列を区切り文字で分割し、配列を作成する関数

Sub Test()
    Dim v As Variant
    Dim i As Integer
    v = GetStrings("1,2,3", ",")
    For i = LBound(v) To UBound(v)
        MsgBox v(i)
    Next
End Sub

Function GetStrings(string1 As String, separator As String) As Variant
    Dim vStrings() As String
    Dim i As Integer, j As Integer, n As Integer
    n = 0
    i = 1
    Do While True
        j = InStr(i, string1, separator, 0)
        n = n + 1
        ReDim Preserve vStrings(1 To n)
        If j = 0 Then
            vStrings(n) = Mid$(string1, i)
            Exit Do
        Else
            vStrings(n) = Mid$(string1, i, j - i)
            i = j + 1
        End If
    Loop
    GetStrings = vStrings
End Function