Visual Basic - Numeros negativos

Hola Estimados, Tengo Un Listbox con dos item, uno llamado 1-Positivo
y el 2-Negativo, ahora mi pregunta es la sig.
cuando el usuario elige dentro de la lista el 2 o sea negativo y da Enter yo lo que quiero que el text1 del mismo formulario que contiene un numero positivo lo combierta a negativo

muchas gracias de antemano

No se si habra funcion para eso, pero mientras buscas puedes hacer:

Ejm.

Te devuelve 5; entonces para mostrarlo negativo

TextBox1.text = 5 - (5*2)

¿Puede ser?

Proba cn este codigo fuente:

Private Sub Lista1_Click()
If Lista1.Text = "Negativo" Then
If Numero.Text > 0 Then
A = Numero.Text
Numero.Text = A - (A * 2)
End If
End If
If Numero.Text < 0 Then
If Lista1.Text = "Positivo" Then
B = Numero.Text
Numero.Text = B - (B * 2)
End If
End If
End Sub

Salutes

Text1.Text = Val(Text1.Text) * -1