Opcion 1: manda un mensaje con el error provocado
Private Sub Command1_Click()
On Error GoTo Errordivision
Text3.Text = Val(Text1) / Val(Text2)
Errordivision:
MsgBox Error
End Sub
opcion 2: no hace nada y sigue la aplicacion
Private Sub Command1_Click()
On Error Resume Next
Text3.Text = Val(Text1) / Val(Text2)
End Sub