Get coworker's schedule to compare free slots

Hello forum! I'm trying to modify this code provided by Microsoft. It gets the free/busy slots as specified in a time range. It works just as described, but it only gets the free/busy of my manager, as described in the exchange hierarchy. How can I modify it to get the schedule of anyone in my organization that I specify? I have several teams and scheduling is a pain. This is step 1 to a new scheduling idea i have.

HTML Code:

---

https://docs.microsoft.com/en-us/office/vba/api/outlook.exchangeuser.getfreebusy

---

Code:

---

Sub GetManagerOpenInterval()  Dim oManager As ExchangeUser
 Dim oCurrentUser As ExchangeUser
 Dim FreeBusy As String
 Dim BusySlot As Long
 Dim DateBusySlot As Date
 Dim i As Long
 Const SlotLength = 60
 'Get ExchangeUser for CurrentUser
 If Application.Session.CurrentUser.AddressEntry.Type = "EX" Then
 Set oCurrentUser = _
 Application.Session.CurrentUser.AddressEntry.GetExchangeUser
 'Get Manager
 Set oManager = oManager.GetExchangeUserManager
 If oManager Is Nothing Then
 Exit Sub
 End If
 FreeBusy = oManager.GetFreeBusy(Now, SlotLength)
 For i = 1 To Len(FreeBusy)
 If CLng(Mid(FreeBusy, i, 1)) = 0 Then
 'get the number of minutes into the day for free interval
 BusySlot = (i - 1) * SlotLength
 'get an actual date/time
 DateBusySlot = DateAdd("n", BusySlot, Date)
 'To refine this function, substitute actual
 'workdays and working hours in date/time comparison
 If TimeValue(DateBusySlot) >= TimeValue(#8:00:00 AM#) And _
 TimeValue(DateBusySlot) <= TimeValue(#5:00:00 PM#) And _
 Not (Weekday(DateBusySlot) = vbSaturday Or _
 Weekday(DateBusySlot) = vbSunday) Then
 Debug.Print oManager.name & " first open interval:" & _
 vbCrLf & _
 Format$(DateBusySlot, "dddd, mmm d yyyy hh:mm AMPM")
 Exit For
 End If
 End If
 Next
 End If
End Sub

---