[Vb6]Come posso migliorare sto cod?

[Luc@s]

quindi cosi va?

 Private Sub diviso_Click()
If IsNumeric(Addiziona(primo.Text, secondo.Text)) = True Then
res.Text = Dividi(primo.Text, secondo.Text)
Else
res.Text = "Non è un numero valido!"
End If
End Sub