Private Function validarNumeros(ByVal texto As String) As Boolean If IsNumeric(texto) Then Return True Exit Function End If Return False End Function