de momento arme esto, pero no me convence para nada
Cita:
Iniciado por Función
Function ConvertirNegativo(ByVal oTextBox As TextBox) As String
If oTextBox.Text.IndexOf("-") = 0 Then
Return oTextBox.Text.Substring(1, oTextBox.Text.Length - 1)
Else
Return oTextBox.Text
End If
End Function