Public Function WidgetExists(ByVal Name As String) As Boolean
    On Error Resume Next
        WidgetExists = Not Me.Controls(Name) Is Nothing
    On Error GoTo 0
End Function

Sub Test()
    MsgBox WidgetExists("Textbox" & 1)
End Sub