Visual Basic - Signo menos en importe

Hola a todos.

Que código faltaría poner al siguiente, para que me deje poner el signo menos delante del importe, para cuando es negativo?

'Limitar solo entrada dígitos numéricos
If KeyAscii = 27 Then
Unload Me
ElseIf KeyAscii = 13 Then
KeyAscii = 0
SendKeys "{tab}"
ElseIf KeyAscii <> 8 Then
If Not IsNumeric("0" & nTexBox.Text & Chr(KeyAscii)) Then
Beep
KeyAscii = 0
End If
End If

Saludos cordiales.

sustituye

ElseIf KeyAscii <> 8 Then
If Not IsNumeric("0" & nTexBox.Text & Chr(KeyAscii)) Then

por

ElseIf InStr("0123456789.-" & Chr(8), Chr(KeyAscii)) = 0 Then

Si el número no admite decimales, quita el punto de la cadena.

Gracias P3L30N2009.
Saludos cordiales.