Función Modulo en VB.NET

[wok]

de momento arme esto, pero no me convence para nada

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