[Vb6]Come posso migliorare sto cod?

[sebamix]

If IsNumeric(primo.text) = True and IsNumeric(secondo.text) = True Then
    res.Text = Addiziona(primo.Text, secondo.Text)
Else
    res.Text = "Non è un numero valido!"
End If

Ecco quello che intendevo io