구분자로 잘라서 FOR문 돌며 1차원 배열저장

strPhone = "123-456-789"

Dim result, acnt                                   // 초기 정의 및 초기화

ReDim strPhone_num(3)                       // 배열정의 및 초기화

result = Split(strPhone,"-")                     // 특정구분자 ('-') 로 자르기

acnt = UBound(result)                           // 총 배열수 확인

For i=0 To acnt Step 1                           // FOR 문 (0부터 배열수까지) 

strPhone_num(i) = result(i)            // 배열저장  

Next                                                    // 다음