Bonjour et Bienvenu sur DVP

Voici une possibilité de solution :
Option Explicit
Dim I%, J%, arrVal(1 To 3) As Integer
Private Sub Command1_Click()
' On teste la saisie dans chaque TextBox...