Ciao Paolo.
Anche se funziona, non è proprio il massimo il codice che hai scritto.
Più correttamente, o per meglio dire .... più semplicemente .... avresti potuto scrivere:
Dim Docu As String = IO.File.ReadAllText(Server.MapPath("template.rtf"))
l'overload della funzione ReadAllText, ti permette di specificare anche il tipo di Encoding.
Ciao