إقتباس :                Dim buffer As String = [String].Empty
                    For i As Integer = 0 To TextBox1.Text.Length - 1 Step 4
                        If TextBox1.Text.Length - i > 4 Then
                            buffer += TextBox1.Text.Substring(i, 4) & " "
                        Else
                            buffer += TextBox1.Text.Substring(i)
                        End If
                    Next
                    TextBox1.Text = buffer