Option Explicit

Private Sub cmdFind_Click()
    
    If IsCleEntryKey(cleEntry, txtFind.Text) = True Then
        txtValue.Text = cleEntry.Item(txtFind.Text)
    Else
        txtValue.Text = ""
        MsgBox "登録されていません。", vbExclamation
    End If
    
End Sub

Private Sub Form_Load()
    
    CollectionEntry
    
End Sub