Me.Label1.Text = Me.TextBox1.Text.Replace("\n", ControlChars.CrLf)

ReplaceメソッドはTextBoxの文字列そのものが変化するわけではないことに注意です。