[مساعدة]

السلام عليكم

تفضل الكود

كود :

Dim s As String = "باسل"
Dim arr = (From c In s.ToCharArray)

Dim m As String = String.Join(vbNewLine, arr)
MsgBox(m)