Kdyby jen to, "divných" věcí je tam více...

Řádek 38: if strName and srtSurname and strUser is not empty then
Řádek 53: Set objUser = objOU.Create("User", cn=strName+" " + StrSurname)

Mělo by být...
Řádek 38: If Not IsEmpty(strName) And Not IsEmpty(strSurname) And Not IsEmpty(strUser) Then
Řádek 53: Set objUser = objOU.Create("User", "cn=" & strName & " " & strSurname)
Řádek 64: objUser.SetPassword "abc123"