Check a Password for Complexity

found1 = ""
found2 = ""

strUserFirst = "ThisIsMyPassword*0"
Complex1
Complex2
msgbox found1 
msgbox found2

Function Complex1()
found1 = "false"
'!
If InStr(strUserFirst, chr(33)) <> 0 Then
   found1 = "true"
End If

'"
If InStr(strUserFirst, chr(34)) <> 0 Then
   found1 = "true"
End If

'#
If InStr(strUserFirst, chr(35)) <> 0 Then
   found1 = "true"
End If

'$
If InStr(strUserFirst, chr(36)) <> 0 Then
   found1 = "true"
End If

'%
If InStr(strUserFirst, chr(37)) <> 0 Then
   found1 = "true"
End If

'&
If InStr(strUserFirst, chr(38)) <> 0 Then
   found1 = "true"
End If

''
If InStr(strUserFirst, chr(39)) <> 0 Then
   found1 = "true"
End If

'(
If InStr(strUserFirst, chr(40)) <> 0 Then
   found1 = "true"
End If


')
If InStr(strUserFirst, chr(41)) <> 0 Then
   found1 = "true"
End If

'*
If InStr(strUserFirst, chr(42)) <> 0 Then
   found1 = "true"
End If

'+
If InStr(strUserFirst, chr(43)) <> 0 Then
   found1 = "true"
End If

',
If InStr(strUserFirst, chr(44)) <> 0 Then
   found1 = "true"
End If

'-
If InStr(strUserFirst, chr(45)) <> 0 Then
   found1 = "true"
End If

'.
If InStr(strUserFirst, chr(46)) <> 0 Then
   found1 = "true"
End If

'/
If InStr(strUserFirst, chr(47)) <> 0 Then
   found1 = "true"
End If


':
If InStr(strUserFirst, chr(58)) <> 0 Then
   found1 = "true"
End If

';
If InStr(strUserFirst, chr(59)) <> 0 Then
   found1 = "true"
End If

'<
If InStr(strUserFirst, chr(60)) <> 0 Then
   found1 = "true"
End If

'=
If InStr(strUserFirst, chr(61)) <> 0 Then
   found1 = "true"
End If

'>
If InStr(strUserFirst, chr(62)) <> 0 Then
   found1 = "true"
End If

'?
If InStr(strUserFirst, chr(63)) <> 0 Then
   found1 = "true"
End If

'@
If InStr(strUserFirst, chr(64)) <> 0 Then
   found1 = "true"
End If

'[
If InStr(strUserFirst, chr(91)) <> 0 Then
   found1 = "true"
End If

'\
If InStr(strUserFirst, chr(92)) <> 0 Then
   found1 = "true"
End If

']
If InStr(strUserFirst, chr(93)) <> 0 Then
   found1 = "true"
End If

'^
If InStr(strUserFirst, chr(94)) <> 0 Then
   found1 = "true"
End If

'_
If InStr(strUserFirst, chr(95)) <> 0 Then
   found1 = "true"
End If

'`
If InStr(strUserFirst, chr(96)) <> 0 Then
   found1 = "true"
End If


'{
If InStr(strUserFirst, chr(123)) <> 0 Then
   found1 = "true"
End If

'|
If InStr(strUserFirst, chr(124)) <> 0 Then
   found1 = "true"
End If

'}
If InStr(strUserFirst, chr(125)) <> 0 Then
   found1 = "true"
End If


'~
If InStr(strUserFirst, chr(126)) <> 0 Then
   found1 = "true"
End If

end function



Function Complex2()
found2 = "false"
'0
If InStr(strUserFirst, chr(48)) <> 0 Then
   found2 = "true"
End If

'1
If InStr(strUserFirst, chr(49)) <> 0 Then
   found2 = "true"
End If

'2
If InStr(strUserFirst, chr(50)) <> 0 Then
   found2 = "true"
End If

'3
If InStr(strUserFirst, chr(51)) <> 0 Then
   found2 = "true"
End If

'4
If InStr(strUserFirst, chr(52)) <> 0 Then
   found2 = "true"
End If

'5
If InStr(strUserFirst, chr(53)) <> 0 Then
   found2 = "true"
End If

'6
If InStr(strUserFirst, chr(54)) <> 0 Then
   found2 = "true"
End If

'7
If InStr(strUserFirst, chr(55)) <> 0 Then
   found2 = "true"
End If


'8
If InStr(strUserFirst, chr(56)) <> 0 Then
   found2 = "true"
End If

'9
If InStr(strUserFirst, chr(57)) <> 0 Then
   found2 = "true"
End If

end function

ASCII codes were originally developed for teletype machines and the first 32 characters are non-printing.