Expand|Select|Wrap|Line Numbers
- dim MyString, MyArray, i, objRegEx
- MyString = Inputbox("please tell me your first name, last name, and password")
- MyArray = Split (MyString, ",", -1, 1)
- Msgbox (MyArray(i))
- Private Sub cmdChekPWD_Click()
- Dim bytFlag
- Dim intI
- Dim strC
- If Len(txtPassword.Text) >= 8 Then
- For intI = 1 To Len(txtPassword.Text)
- strC = Mid(txtPassword.Text, intI, 1)
- If strC >= "!" And strC <= "\" Then
- bytFlag = bytFlag Or &H8
- End If
- If strC >= "0" And strC <= "9" Then
- bytFlag = bytFlag Or &H4
- End If
- If strC >= ":" And strC <= "@" Then
- bytFlag = bytFlag Or &H8
- End If
- If strC >= "A" And strC <= "Z" Then
- bytFlag = bytFlag Or &H2
- End If
- If strC >= "a" And strC <= "z" Then
- bytFlag = bytFlag Or &H1
- End If
- Next
- End If
- If bytFlag <> &HF Then
- MsgBox "Invalid Password"
- Else
- if bytflag = &HF then
- msgbox "Valid password"
- End If
- end if
- End Sub