[RESOLVED] TextBox as Control

[Fonty]

I have a userform in which you have to fill many textboxes with numbers. I want to check the content of what has been just introduced as data. For this I wrote the following:

For Each c In Controls
    MyName = c.Name
    If Left(MyName, 7) = "txtVare" IsNumeric(c) = False Then
        mensaje = MsgBox("xxxxx", vbInformation, "Error")
        Revision = 1
    End If
Next

The problem is that you cannot use IsNumeric() with Controls because Value is not a valid property of Controls. How could I check if the current control has a numeric value?

[westconn1]

i tested this and it works ok

Sub tboxs()
Dim c As control
For Each c In UserForm1.Controls
    MyName = c.Name
    If Left(MyName, 7) = "TextBox" And IsNumeric(c) = False Then
        mensaje = MsgBox("xxxxx", vbInformation, "Error")
        Revision = 1
    End If
Next
End Sub