Verifique se a data e a hora do calendário do Outlook estão disponíveis com base na forma de usuário

Question

Estou tentando criar uma macro para um formulário de usuário do Excel que verifique se a data e a hora estão disponíveis no Outlook com base na data e hora no meu formulário de uso. No momento, estou criando compromissos do Outlook do meu formulário de usuário com a macro a seguir, mas não tenho como verificar se a data e a hora estão disponíveis antes de executar o compromisso. Talvez haja uma maneira de criar um botão no meu formulário de usuário que possa verificar se a data e a hora inseridas estão disponíveis? Eu precisaria que as datas fossem de segunda a sábado e das 9:00 às 18:00 Aqui está o meu código:

UserForm que cria Meus Compromissos do Excel para o Outlook

Formulário do usuário que cria compromissos

Sub outlook_call()


Dim cb As Object
Dim lastrow As Long, ws As Worksheet
Set ws = Sheets("appointments")
lastrow = ws.Cells(Rows.Count, 11).End(xlUp).Row + 1

Set myOutlook = CreateObject("Outlook.Application")


Do Until appvision.appname.Value = ""
    ' Create the AppointmentItem
    Set myApt = myOutlook.CreateItem(1)
    ' Set the appointment properties
    myApt.Subject = appvision.appname.Value
    myApt.Location = appvision.appname.Value
    myApt.Start = appvision.TextBox2.Value
    'myApt.Duration = appvision.ComboBox1.Value
     'If Busy Status is not specified, default to 2 (Busy)
    'If UserForm2.ComboBox3.Value = "" Then
     '  myApt.BusyStatus = 2
    'Else
       ' myApt.BusyStatus = UserForm2.ComboBox3.Value
   ' End If
    If appvision.TextBox9.Value > 0 Then
      myApt.ReminderSet = True
       myApt.ReminderMinutesBeforeStart = appvision.TextBox9.Value
    Else
        myApt.ReminderSet = False
    End If
    myApt.Body = appvision.TextBox4.Value
    myApt.Display
Exit Do
Loop
End Sub