Código de búsqueda de operación de división VB6.0

Subcomando privado1_Click()

Text3.Text = "" 'Remanente

Si IsNumeric(Text1.Text) = False Entonces

MsgBox "El dividendo no es un número, vuelva a ingresarlo"

Text1.Text = ""

Text1.SetFocus

Salir de Sub

Finalizar si