Buenos dias usuarios del foro.
Tengo creado unos formularios de captura de datos, los cuales funcionan bien, pero necesito validar los datos que se ingresan por los textbox de forma que sean solo numeros o solo alfabetico.
Gracias por la ayuda.
Saludos

Hola:

Este es un ejemplo copiado de Recursos Visual Basic, donde encuentras lo inimaginable respecto a VB, para alguien que obviamente está empezando.

Código:

Option Explicit

Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = Verificar_Tecla(KeyAscii)
End Sub

Function Verificar_Tecla(Tecla_Presionada)
    
    
Dim Teclas As String
    
    
    'Acepta todos los números, la tecla Backspace, _
     la tecla Enter, la coma y el punto
    
    Teclas = "1234567890.," & Chr(vbKeyBack)
    
    If InStr(1, Teclas, Chr(Tecla_Presionada)) Then
        
        Verificar_Tecla = Tecla_Presionada
    Else
        ' Si no es ninguna de las indicadas retorna 0
        Verificar_Tecla = 0
    End If
    

End Function

Saludos

Agradecido por la colaboracion. Hare la implementacion para correrlo
Saludos