No need to add any kind of complicated functions just use following example to insert double in text box or rich text box.
Dim dquot=""""
TextBox1.AppendText("Hello " &dquot &"How are you ?" ")
or
Dim dquot=""""
RichTextBox1.AppendText("Hello " &dquot &"How are you ?" ")