beh puoi fare così
public function CheckPasswd (byval pass as string) as Boolean
'codice per validita password
if la_pass_e_valida then
CheckPasswd=true
else
CheckPasswd=false
endif
end function
questo codice credo che sia compatibile con vb6 e vb.net
