I would like to generate a floating point value in the range of -1 to +1. I used the following snippet, but it's always positive.

Me.Text = (-1 * Rnd() +1).ToString