Public event NoNumero
En alguno de los eventos del TXTNum, por ejemplo Keypress, validas...
Private Sub TXTNum_KeyPress(KeyAscii As Integer)
if KeyPress <48 or Keypress >57 then
KeyPress=0 ' borramos el carácter introducido
RaiseEvent NoNumero
end if
End Sub
' debes notar que el punto ó la coma forman parte también de un número, por lo que deben validarse también eso sí, nunca van más de 1 en una misma cifra...
'Luego en el formulario trabajando sobre el evento de la instancia del OCX recibes cuando suceda la señal y la tratas como desees en tu caso:
private MiTextBox1_NoNumero()
lblerror.caption="El valor debe ser numerico"
end sub
' aunque es mejor no mostrar ese error en un label, si no se va a borrar tras ser leído, un msgbox sería más correcto...
private MiTextBox1_NoNumero()
msgbox "El valor debe ser numerico"
end sub