If InStr(Date.Now.ToString("h:mm tt"), "7:10", CompareMethod.Text) Or _
        InStr(Date.Now.ToString("h:mm tt"), "7:11", CompareMethod.Text) Or _
        InStr(Date.Now.ToString("h:mm tt"), "7:20", CompareMethod.Text) And InStr(Date.Now, "pm", CompareMethod.Text) Then
            MsgBox(Date.Now.ToString("h:mm tt"))
        End If