エクセルvbaで代入がうまくいかない

前提・実現したいこと

エクセルVBAでバーコードを使った在庫管理システムをつくろうとしています。
url先のサンプルコードをもとに独自のシステムを構築しようとしているのですが、
IDがすでに登録されているかどうかを判断分岐させるタイミングでエラーがおきます。

また、entry entryDataがなにをしたいのかよくわかっていません。
vba entry で検索してみましたが、
entry の利用方法に関する記述がホームページ等見つかりませんでした。

ご回答のほどよろしくお願いいたします。

参考先
-続・エクセルを使った簡単なバーコード式在庫管理システムを作る -
https://rabbitfoot.xyz/barcode-manage-system2/

発生している問題・エラーメッセージ

実行時エラー'424':

オブジェクトが必要です。

該当のソースコード

vba
1
2'=============
3'標準モジュール
4'=============
5
6Public Sub idProcesser(id As String)
7
8    Dim entryData As String
9    
10    If existID(id) Then
11        update id
12        
13    Else
14
15'該当箇所
16        
17        entryData = UserForm1.makeData(id)
18'該当箇所終わり
19        entry entryData
20        
21        
22    End If
23    
24End Sub
25
26'==========
27'UserForm1
28'==========
29
30Public Function makeData(id As String) As String
31    
32    Dim result As String
33        
34    '受け取ったIDをセット
35    idbox.Value = id
36        
37    Me.Show
38
39   '入力された値を代入    
40    result = idbox.Value & "$" & ordercbox.Value & "$" & firstcbox.Value & "$" & secncbox.Value & "$" & thirdcbox.Value & "$" & lastcbox.Value & "$" & inspectioncbox.Value & "$" & deliverybox.Value
41    makeData = result
42        
43End Function
44