создание панели инструментов VBA

[Sv.]

Разработать форму, создающую и удаляющую панель инструментов. Панель инструментов должна содержать объект типа msoControlEdit, по завершении ввода в котором должно выводиться сообщение, является введенное значение четным или нечетным числом.

Private Sub CommandButton1_Click()
With Application.CommandBars.Add("TestCommandBar", msoBarTop, False, True)
        .Visible = True
        With .Controls
            
            
            With .Add(msoControlEdit)
                .Tag = 5000
                .TooltipText = "Ïîëå ââîäà"
                .OnAction = "Action1"
            End With
           
            
        End With
    End With


End Sub

Private Sub CommandButton2_Click()
    Application.CommandBars("TestCommandBar").Delete
End Sub

это пишу в форме

Private Sub Action1()
Dim x As Single

    Set xEdit = Application.CommandBars("TestCommandBar"). _
            FindControl(Type:=msoControlEdit, Tag:=5000) 'здесь выдает ошибку
    x = xEdit.Text
    If (x Mod 2 = 0) Then
MsgBox "Чмсло четное", vbOKOnly
Else
MsgBox "Число нечетное", vbOKOnly
End If
End Sub

это пишу в модуле

выдает ошибку в указанной строке. никак не могу понять в чем дело

[ikki_pf]

сорри, удалил

[nerv]

Сообщение от Sv.

    Set xEdit = Application.CommandBars("TestCommandBar"). _
            FindControl(Type:=msoControlEdit, Tag:=5000) 'здесь выдает ошибку

врете вы все. Ошибка здесь

x = xEdit.Text

потому, что

Dim x As Single

надо

Dim x As [String|Variant]