";"で区切ってあるデータを取り出す。 (ID:109931)

名前

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

本文 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