'_________________________________________________________________________________
'SplitEx関数
'半角・全角Space Tabコードで文字を分割して返す
'引数はstring型
'戻り値は動的配列の文字列変数である
'_________________________________________________________________________________
Public Function SplitEx(strText As String) As String()
　　 Dim strWithoutSpace As String
　　 Dim strSpaceSplit() As String
　　Dim strTabSplit() As String
　　Dim strSplit() As String
　　Dim intI As Integer
　　Dim intJ As Integer
　　Dim intK As Integer
　　Dim intCtr As Integer
　　Dim strModori() As String

　　 '先頭と最後のSpaceを削除
　　strWithoutSpace = Trim(strText)
　　 'Spaceで分割
　　strSpaceSplit = Split(strWithoutSpace)

　　intCtr = 0
　　 '全角Spaceで区切る
　　For intI = 0 To UBound(strSpaceSplit)
　　　　strSplit = Split(strSpaceSplit(intI), Chr$(-32448))
　　　　'Tabで区切る
　　　　For intJ = 0 To UBound(strSplit)
　　　　strTabSplit = Split(strSplit(intJ), Chr$(9))
　　　　　　For intK = 0 To UBound(strTabSplit)
　　　　　　　　intCtr = intCtr + 1
　　　　　　　　ReDim Preserve strModori(intCtr)
　　　　　　　　strModori(intCtr) = strSplit(intJ)
　　　　　　Next
　　　　Next
　　Next

　　 SplitEx = strModori
End Function