Inserir Espaço A Cada 2 Caracteres

 Dim aa As String = RichTextBox2.Text
        Dim i As Integer = 2

        While i < aa.Length
            aa = aa.Insert(i, " ")
            i += 3
        End While
        RichTextBox2.Text = aa