Да, просто поместите следующий код, и richtextbox создаст его в формате UTF-8, но не откроет, просто сохраните.Но он отлично откроется в блокноте!Вставьте этот код, он сохранится в этом каталоге, но без отображения диалогового окна.
Dim info As Byte() = New UTF8Encoding(True).GetBytes(RICHTEXTBOX1.Text)
fs.Write(info, 0, info.Length)
fs.Close()