[الطالب]

سلام

كود :

Dim s = System.Text.RegularExpressions.Regex.Matches(msg(1), "(\P{Lu}+)|(\p{Lu}+\P{Lu}*)")
For Each w In s
    MsgBox(w.value)
Next

موفقين