Code:
If RichTextBox1.Lenght = 2500 Then 'oder anstatt = ein > für über 2500 Zeichen
MailSend()
Else : End If
Das ist schon mal die Abfrage nach 2500 Zeichen.
Für das Senden der Mail ist ein bisschen mehr Code vonnöten (kein Bock das hier alles hinzuschreiben), daher gebe ich dir mal ein

! Dann einfach eine neue Sub mit dem Namen "MailSend" machen und den Code zum Senden der Mail vom Tutorial in diese Sub packen und fertig!

Wenn du detailliertere Hilfe brauchst, send mir ne PN!