Dim operators As List = Array("+", "-", "*", "/")
Dim operator As String = operators.Get(Rnd(0, operators.Size)) 'second Rnd parameter is exclusive
Select operator
Case "+"
YourCodeToAdd
Case "-"
YourCodeToSubtract
Case "*"
YourCodeToMultiply
Case "/"
YourCodeToDivide
End Select