Запустить процедуру по дню недели и времени

Public Class Form1
    
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Text = Format(Now, "HH:mm")
        TextBox5.Text = Format(Now, "dddd")
 
        If TextBox1.Text = Me.Text And CheckBox1.Checked = True And TextBox5.Text = "понедельник" Then
            TextBox4.Text = "Событие1"
        End If
 
        If TextBox2.Text = Me.Text And CheckBox2.Checked = True And TextBox5.Text = "вторник" Then
            TextBox4.Text = "Событие2"
        End If
        
        If TextBox3.Text = Me.Text And CheckBox3.Checked = True And TextBox5.Text = "среда" Then
            TextBox4.Text = "Событие3"
        End If
 
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 1000
        Timer1.Enabled = True
    End Sub
 
    
End Class

Public Class Form1
    
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Text = Format(Now, "HH:mm")
        TextBox5.Text = Format(Now, "dddd")
 
        If TextBox1.Text = Me.Text And CheckBox1.Checked = True And TextBox5.Text = "понедельник" Then TextBox4.Text = "Событие1"
        If TextBox2.Text = Me.Text And CheckBox2.Checked = True And TextBox5.Text = "вторник" Then TextBox4.Text = "Событие2"
        If TextBox3.Text = Me.Text And CheckBox3.Checked = True And TextBox5.Text = "среда" Then TextBox4.Text = "Событие3"
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 1000
        Timer1.Enabled = True
    End Sub
 End Class