Dim str As String


Dim x() As String




str = "منتديات##الفريق##العربي##للبرمجة"


x() = Split(str, "##")




For Each y In x()


MsgBox y


Next