Dim s As String = Application.StartupPath + "\temp.rtf" 
Dim p As New Process
Dim psi As New ProcessStartInfo("Wordpad.exe")
psi.Arguments = "/p " + """" + s + """"
psi.CreateNoWindow = True
psi.WindowStyle = System.Diagnostics.ProcessWindowStyle.Hidden 
p.StartInfo = psi
Me.richTextBox1.SaveFile(s)
Application.DoEvents 
p.Start() 
p.WaitForExit() 
Application.DoEvents 
IO.File.Delete(s)