http://www.vbforums.com/showthread.p...hreadid=292642

Change,

VB Code:
  1. Private Const charz     As String = "abcdefghijklmnopqrstuvwxyz0123456789"

to

VB Code:
  1. Private Const charz     As String = "abcdefghijklmnopqrstuvwxyz