التعامل مع الكائن بالاسم

الكود التالى مكتوب بالدلفى

TMaskEdit(FindComponent('textbox1')).Text := 'Hi world';

الفكرة منه انا مش عارف اسم الـTextBox لكن اسمة فى Array او فى متغير نصى فما الكور المزازى لذلك بالـVB.NEt

على فكرة انا استخدمت الدالة التالية ولكن للاسف الناتج لا يظهر الان الناتج يدخل فى كلس جديد وليس الكلس الاصلى

    Public Function GetTextBoxByName(ByVal Sname As String, ByRef Won As Form) As TextBox
        For Each value As Control In Won.Controls
            If value.Name.ToUpper = Sname.ToUpper Then
                Return value
            End If
        Next
        Return Nothing
    End Function