I have this code but it seems that the "randomChar" is unused variable.
Dim validchars(3) As String
Dim i As Int
validchars(0) ="+"
validchars(1) ="-"
validchars(2) ="*"
Dim idx As Int = Rnd(0, validchars.Length)
Dim randomChar As String = validchars(idx)