Admin tool for Password change

Looking to create a user management console, where the administrator can change passwords for any user. The code below is what I have, but it doesnt seem to work. Any suggestions?

Dim strPassword As String
Dim strUserName As String
Dim strResetPassword As< ...