Devi usare la costante vbCrLf tra una riga e l'altra.

Rtb.Text = "linea1" & vbCrLf & "linea2"

P.S. Hai dimenticato di indicare il linguaggio nel titolo ... e poi un titolo piu' significativo era meglio ...