Taruh aja batas panjang karakter di Sub textboxnya gan, contoh Private Sub NOP_Change() NOP.MaxLength = 8 Len(NOP.Text) >= 8 kemudian tambahkan pencarian di Bawahnya jadi... Private Sub NOP_Change() NOP.MaxLength = 8 If Len(NOP.Text) >= 8 Then nis = Me.NOP With Worksheets("Sheet2&quo