VBA ... run-time error '424': object required

ich hab da ein ganz kleines problem ^^

bin grad dabei ein add-in für excel zu schreiben mit dem sich user im AD anlegen lassen

dank google diversen foren und scriptbeispielen hab ich mir was zusammengetüdelt
und nach bedarf angepasst

###########################################################
Private Sub CreateUserButton_Click()

Benutzer = LANIDBox()
Vorname = VornameBox()
Nachname = NachnameBox()
Password = PasswordBox()

Dim UserOU, UserData
Set UserOU = GetObject("LDAP://OU=X,OU=Y,DC=A,DC=B,DC=C")
Set UserData = UserOU.Create("user", "CN=" & Vorname & ", " & Nachname)
Dim WshShell
Set WshShell = Wscript.CreateObject("WScript.Shell")

UserData.Put "sAMAccountName", Benutzer
UserData.Put "displayName", Vorname & " " & Nachname
UserData.Put "givenName", Vorname
UserData.Put "sn", Nachname
UserData.Put "userAccountControl", 66082
UserData.Put "userPrincipalName", Benutzer & "@DomainName.TopLevelDomain"
UserData.Put "homeDirectory", "\\servername\" & Benutzer & "$"
UserData.Put "homeDrive", "P:"
UserData.SetInfo
UserData.SetPassword Passwort
UserData.AccountDisabled = False
UserData.SetInfo
Wscript.Sleep (1000)

MkDir "\\servername\" & Benutzer

End Sub
###########################################################

das script in seiner ursprünglichen form funzt wunderbar solang es direkt aus ner *.vbs datei ausgeführt wird mit dem unterschied das dann die eingaben wie vor/nachname etc. aus einer *.txt datei gelesen werden

mein problem VBA anfängt das meckern an

run-time error '424': object required

in der zeile

Set WshShell = Wscript.CreateObject("WScript.Shell")

wenn ich das richtig verstehe ... dann sagt mir VBA das WshShell kein object ist oder ?


edit:
google spuckt mir zum thema die wildesten vorschläge aus die zum teil schon fast haarsträubend sind ^^

zufällig is mir zu ohren gekommen das wir hier nen VBA crack in der firma haben
die angepasste fassung für VBA

############################################################

Private Sub CreateUserButton_Click()

Benutzer = LANIDBox()
Vorname = VornameBox()
Nachname = NachnameBox()
Password = PasswordBox()

Dim sPath As String

Dim UserData

sPath = "LDAP://OU=X,OU=Y,DC=A,DC=B,DC=C"
Set UsersObject = GetObject(sPath)

Set UserData = UsersObject.Create("user", "CN=""" & Vorname & ", " & Nachname & """")

UserData.Put "sAMAccountName", Benutzer
UserData.Put "displayName", Vorname & " " & Nachname
UserData.Put "givenName", Vorname
UserData.Put "sn", Nachname
UserData.Put "userAccountControl", 66082
UserData.Put "userPrincipalName", Benutzer & "@DomainName.TopLevelDomain"
UserData.Put "homeDirectory", "\\servername\" & Benutzer & "$"
UserData.Put "homeDrive", "P:"
UserData.SetInfo
UserData.SetPassword Passwort
UserData.AccountDisabled = False
UserData.SetInfo

MkDir "\\servername\" & Benutzer

End Sub

############################################################