Visual Basic - validar textbox

Hola, tengo un problema con una validación, el problema es el siguiente:

Tengo un array de textboxes, (de textbox(0) a textbox(9)), y quiero validar que en cada uno el usuario escriba algo, si no lo hace que le mande un mensaje de que debe escribir algo en ese textbox que le falta, especificando en el msgbox que campo es el que le falta, como puedo hacer esto?.
Aparte no encuentro como validar un solo textbox de ese array, para que solo acepte numeros????????????
ya que siempre me toma todo el array y no uno solo.

Para validar que en cada textbox haya halgo tendrias que hacer lo siguiente en el boton validar

Private Sub cmdValidar_Click()
Dim I as Byte

Valido = True
For I = 0 to 9
If Trim(txtCampo(I)) = "" Then
Valido = False
MsgBox "Error"
End If
End For
End Sub

Defines "Valido" como Boolean a nivel modulo, y te indicara si hay oo no error.

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
IF Index = 5 Then 'Este elemento valido solo numeros
Select Case KeyAscii
Case 8, 48 To 57
KeyAscii = Asc(UCase(Chr(KeyAscii)))
Case Else
KeyAscii = 0
End Select
End If
End Sub

Espero esto te ayude

Saludos desde Lima

gracias, voy a checar el consejo a ver si funciona, ya por ahí andaba mi código, pero este se vé más claro, gracias por contestar.

Te enviaré algo por correo, ve a ver si esto te sirve también.
Está en una Function.

Saludos.

Visual Basic 6.

para realizar lo que deseas debes hacer lo siguiente:

crear un formulario y agregarle tres textbox con array.

declaramos x y contador para que realizen la cuenta.
contador es igual a 2 porque tenemos solo tres textbox, 0, 1 y 2. si tuvieramos por ejemplo 9 textbox, entonces contador seria igual a 8, porque el array hace el conteo 0, 1 , 2, 3, 4, 5, 6, 7, 8.
lo que hace es que X es como el index de cada text, y este cambia y verifica cual de todos no tiene texto, ademas, en un message box te muestra cual de todos no tiene texto. Ojala te sirva.

Private Sub Command1_Click()
Dim x As Integer
Dim contador As Integer
contador = 2
For x = 0 To contador
If Text1(x).Text = "" Then
MsgBox "El texto numero " & x & " no contiene texto", vbExclamation, " "
End If
Next
End Sub

Visual Basic 6.0
100 % funcionando.

escribir esto en la keypress del textbox:

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim key As String
key = Chr(KeyAscii)
If KeyAscii <> vbKeyBack Then
If key < "0" Or key > "9" Then
KeyAscii = 0
End If
End If
End Sub

Esto verifica que solo se escriban numeros, ademas acepta que se pueda borrar los caracteres.

If (KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 45 Or KeyAscii = 46 Or KeyAscii = 8) Then
Else
KeyAscii = 0
End If

espero que les sirva, saludos desde colombia
este codigo te permite solo numeros , la tecla de borrar y el signo menos, también el punto para decimales