[عبدالله الدوسري]

وعليكم السلام 

بإستخدام الوظيفة 

String.Join

   

   

كود :

       Dim Nuuuuuum As String = "47368789567"

       Dim Serial As String = String.Join("-", Nuuuuuum.ToList)

       MsgBox(Serial)

من TextBox1

   

كود :

       Dim Serial As String = String.Join("-", Me.TextBox1.Text.Trim .ToList)

       MsgBox(Serial)