Code:
        'an example
        rtxtbox.Clear()
        rtxtbox.AppendText(DateTime.Now.ToString)
        rtxtbox.AppendText(Environment.NewLine)
        rtxtbox.AppendText(DateTime.Now.AddMinutes(60).ToString)
        rtxtbox.AppendText(Environment.NewLine)