Dim ResourceName As String = TextBox1.Text Dim ResourceContents As String = My.Resources.ResourceManager.GetObject(ResourceName) RichTextBox1.Text = ResourceContents