fonksiyon 2 girdi alır şifre ve boyut ,
geriye false yada True değerini dönderir
ÖNEMLİ NOT:Option Compare Binary
burada Binary olması şart yoksa küçük-büyük sorunu yaşanır
Function SifreKontrol(s As String, intMax As Integer) As Boolean
EnAzKrkter = Len(s & "") > intMax - 1
KucukHrf = s Like "*[a-z]*"
BuyukHrf = s Like "*[A-Z]*"
RakamKnt = s Like "*[0-9]*"
KarakterKnt = s Like "*[.,!'%/+-]*" ' buraya girilebilecek alfasayısısal olmayandeğerler
SifreKontrol = KucukHrf And BuyukHrf And RakamKnt And KarakterKnt And EnAzKrkter
Debug.Print SifreKontrol
End Function