'_________________________________________________________________________________
'SplitEx関数
'半角・全角Space・Tabコードで文字列を分割して返す
'引数はString型
'戻り値は動的配列の文字列変数
'_________________________________________________________________________________
Public Function SplitEx(strText As String) As String()
　　Dim strWork() As String
　　strWork = Split(Replace(Replace(Trim(strText), "　", " "), vbTab, " ")," ")
　　SplitEx = strWork
End Function