Visual Basic - Validar ingreso de un real

Buenas tardes, mi consulta es la siguiente:
Tengo 2 cajas de texto que deben recibir 1 numero real cada una, de tal forma que sólo permitan el ingreso de los dígitos del 0 al 9 además del -(menos) y el punto, pero estos últimos solo deben permitirse ingresar una sola vez en cada caja además el -(menos) únicamente podría ingresarse al inicio de la entrada. He tomado como parte de mi código la función soloNumeros() que postearon hace unos días pero quisiera añadirle las lineas necesarias para que me permita llevar a cabo este caso. Lo he conseguido codificando el evento KeyPress de cada TextBox pero me doy cuenta que hay codigo duplicado que pienso podría ir dentro de la función.

Private Sub txtBase_KeyPress(keyAscii As Integer)
If (keyAscii = 13) Then
txtExponente.SetFocus
keyAscii = 0 'evita que suene el beep
Else
If (keyAscii <> 45) Then
If (keyAscii <> 46) Then
keyAscii = soloNumeros(keyAscii)
Else
If (InStr(txtBase.Text, ".") <> 0) Then
keyAscii = 0
End If
End If
Else
If (txtBase.Text <> "") Then
keyAscii = 0
End If
End If
End If

End Sub

Private Sub txtExponente_KeyPress(keyAscii As Integer)
If (keyAscii = 13) Then
If (cmdCalcular.Enabled) Then
cmdCalcular.SetFocus
keyAscii = 0 'evita que suene el beep
End If
Else
If (keyAscii <> 45) Then
If (keyAscii <> 46) Then
keyAscii = soloNumeros(keyAscii)
Else
If (InStr(txtExponente.Text, ".") <> 0) Then
keyAscii = 0
End If
End If
Else
If (txtExponente.Text <> "") Then
keyAscii = 0
End If
End If
End If

End Sub

en un módulo la función:
Function soloNumeros(ByVal tecla As Integer) As Integer
Dim iValor As Integer

iValor = tecla

If (InStr("0123456789" & Chr(8), Chr(iValor)) = 0) Then
iValor = 0
End If

soloNumeros2 = iValor

End Function

Mira, aquí tienes la función modificada a tus necesidades

Public Function VerificaNum(ByVal Texto As String, Tecla As Integer)
Dim iValor As Integer
iValor = Tecla
' sólo permite números, punto y retroceso
If InStr("0123456789." & Chr(8), Chr(iValor)) = 0 Then iValor = 0
' comprueba que el signo menos esté sólo al principio
If Chr(Tecla) = "-" Then
If InStr(2, "-", Texto) > 0 Then iValor = Tecla
End If
' si ya se ha escrito un separador decimal, no se permite otro
If iValor = 46 Then
If (InStr(Texto, ".") > 0 Or InStr(Texto, ",") > 0) Then iValor = 0
End If
VerificaNum = iValor
End Function

En el evento KeyPress de cada TextBox:

KeyAscii = VerificaNum(TextX.Text, KeyAscii)

Si la función la colocas en un módulo .bas, te recuerdo que la tienes que declarar como Public para que esté disponible en todo el proyecto.

Peleon, sin ánimo de hacer polémica, esto último que escribes:

"Si la función la colocas en un módulo .bas, te recuerdo que la tienes que declarar como Public para que esté disponible en todo el proyecto"

no es necesario. Si declaras una función o procedimiento en un módulo .BAS automáticamente se reconoce como público, está disponible para todo el proyecto.
Saludos.

Lapsus por mi parte, no sé si estaría pensando en variables en vez de en funciones.

Muy agradecido de ustedes señores.