VBA 중복 확인시 숫자만 있는 경우

Sub Register_Product()
Dim DB As Variant
Dim blnUnique As Boolean  'True/False
 
DB = Get_DB(shtItem)
blnUnique = IsUnique(DB, Me.txtSKU.Value, 4)
If blnUnique = False Then MsgBox "동일한 제품 코드가 존재합니다. 다시 확인해주세요.", vbExclamation:   Exit Sub
 
Insert_Record shtItem, Me.txtCustomerID.Value, Me.cboUnit.Value, _
Me.txtSKU.Value, Me.txtRemark.Value, Me.txtProductName.Value, Me.cboCategory.Value
 
 
Update_lstMain
Initialize
MsgBox "신규 제품 정보가 등록 되었습니다.", vbInformation