Visual Basic - crear una division en cajas de textos

Private Sub FechaProxMant_Change()
Range("G7").Select
ActiveCell.FormulaR1C1 = FechaProxMant
FechaProxMant.Text = 250 / Val(HRSTRABDIA.Text)

esta division manda error 11

como la corrijo

Hola Jovanny, que contiene HRSTRABDIA.Text??

esta caja de texto puede conterner cualquier valor para realizar la división
ejemplo 250/24 donde este se va a cargar en HRSTRABDIA.Text

el error 11 es divicion por cero
250/0 es dificil
revisa si lo esta cargando a HRSTRABDIA.Text
intentale asi:
Private Sub FechaProxMant_Change()
Range("G7").Select
ActiveCell.FormulaR1C1 = FechaProxMant.text
FechaProxMant.Text = 250 / Val(HRSTRABDIA.Text)