";"で区切ってあるデータを取り出す。

ai 2003-11-12 22:03:20 No: 109930

変数 Aに1115;1114;1116;1113;1112
が入っていてこれを；で区切って
1115をtext1へ1114をtext2へ1116をtext3へと感じにしたいのですが、
やり方がわからなく困っています。
教えてください。お願します。

しゅう 2003-11-12 22:46:26 No: 109931

Spilt関数を使用します。

Private Sub Command1_Click()
Dim A As String
Dim text() As String
    A = "1115;1114;1116;1113;1112"
    text() = Split(A, ";")
    For i = 0 To UBound(text)
        MsgBox text(i)
    Next
End Sub