Visual Basic Code for Access

Looking to make a code to Change Windows domain password. This is What I have it works but looking to make it change office 365 password as well (without the prompt window to change it)

Dim UserName Dim User Dim UserDomain UserDomain = InputBox("Enter the user's login domain name") UserName = InputBox("Enter the user's login name") Set User = GetObject("WinNT://" & UserDomain & "/" & UserName & ", user")

Dim NewPassword

NewPassword = InputBox("Enter new password") Call User.SetPassword(NewPassword) If Err.Number = 0 Then MsgBox "The password change was successful." Else MsgBox "The password change failed!" End If