[tariq2812]

كود :

Dim s As String() = "bbb,nn,mm444".Split(",")

        For Each c In s

            MsgBox(c)

        Next


        For c = 0 To s.Length - 1

            MsgBox(s(c))

        Next