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

---

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

編集 削除

---

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

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。