به شرط اینکه RichTextBox1.MaxLength دقیقاً به اندازه متن باشه:
If RichTextBox1.MaxLength <> 0 Then MsgBox((RichTextBox1.Text.Length / RichTextBox1.MaxLength) * 100)

منظورتون اینه یا چیز دیگری؟
ببخشید اگه درست متوجه نشدم.