Verzeichnisüberwachung in VB funktioniert, Code evtl. anpassbar oder unsauber?

Imports Scripting
Imports System.Text.RegularExpressions

Public Class Form1
    Dim fso
    Dim rgx2 As New Regex(".*?(TOK).*\.\d{3}$")  
    Dim rgx As New Regex(".*?(VOK).*\.\d{3}$")  
    Dim text1 As String
    Dim text2 As String
    Dim text3 As String
    Dim text4 As String
    Dim text5 As String

    Private Declare Function FlashWindowEx Lib "user32.dll" (ByRef pfwi As FLASHWINFO) As Int32  
    Public Const FLASHW_STOP = 0
    Public Const FLASHW_CAPTION = &H1
    Public Const FLASHW_TRAY = &H2
    Public Const FLASHW_ALL = &H3
    Public Const FLASHW_TIMER = &H4
    Public Const FLASHW_TIMERNOFG = &HC

    Const SEARCHFOLDER = "C:\Documents"  

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        text5 = "Überwachtes Verzeichnis: ExpImp:"  
        Label1.Text = text5
        text1 = "Vollabgleiche (VOK):"  
        Label3.Text = text1
        text3 = "Teilabgleiche (TOK):"  
        Label7.Text = text3
        fso = CreateObject("Scripting.FileSystemObject")  
        InitializeTimer()
        InitializeTimer1()
        InitializeTimer2()
    End Sub

    Public Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        InitializeTimer()
    End Sub

    Public Sub InitializeTimer()
        Timer1.Enabled = True
        Timer1.Interval = 400
        DoSearch()
    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        InitializeTimer1()
    End Sub

    Public Sub InitializeTimer1()
        Timer2.Enabled = True
        Timer2.Interval = 10
        Warning()
    End Sub

    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
        InitializeTimer2()
    End Sub

    Public Sub InitializeTimer2()
        Timer3.Enabled = True
        Timer3.Interval = 60000
        Timer2.Enabled = True
    End Sub

    Public Sub DoSearch()
        Dim searchstring As Object
        Dim COMNothing As Object
        COMNothing = New Runtime.InteropServices.UnknownWrapper(Nothing)
        searchstring = COMNothing
        If CheckFiles1(SEARCHFOLDER, searchstring) Then
            text2 = "Es sind neue Vollabgleiche vorhanden! (Kann etwas länger dauern!)"  
            Label5.Text = text2
            Label5.ForeColor = Color.Red
        Else
            text2 = "Keine neuen Vollabgleiche vorhanden!"  
            Label5.Text = text2
            Label5.ForeColor = Color.Green
        End If
        If CheckFiles2(SEARCHFOLDER, searchstring) Then
            text4 = "Es sind neue Teilabgleiche vorhanden!"  
            Label9.Text = text4
            Label9.ForeColor = Color.Red
        Else
            text4 = "Keine neuen Teilabgleiche vorhanden!"  
            Label9.Text = text4
            Label9.ForeColor = Color.Green
        End If
    End Sub

    Function CheckFiles1(folder, searchstring) As Boolean
        For Each file In fso.GetFolder(folder).Files
            If rgx.IsMatch(file.Name) Then
                CheckFiles1 = True

                Exit Function
            End If
        Next
        CheckFiles1 = False
    End Function

    Function CheckFiles2(folder, searchstring) As Boolean
        For Each file In fso.GetFolder(folder).Files
            If rgx2.IsMatch(file.Name) Then
                CheckFiles2 = True

                Exit Function
            End If
        Next
        CheckFiles2 = False
    End Function

    Function funk1() As Boolean
        If text2 <> "Keine neuen Vollabgleiche vorhanden!" Then  
            text2 = Nothing
            funk1 = True
            Timer2.Enabled = False
            Exit Function
        End If
        funk1 = False
    End Function

    Function funk2() As Boolean
        If text4 <> "Keine neuen Teilabgleiche vorhanden!" Then  
            text4 = Nothing
            funk2 = True
            Timer2.Enabled = False
            Exit Function
        End If
        funk2 = False
    End Function

    Private Sub Warning()
        If funk1() = True Then
            FlashIcon(Handle, FLASHW_TRAY + FLASHW_TIMERNOFG)
            SetBalloonTip1()
        ElseIf funk1() = False Then
            NotifyIcon1.Text = "Vollabgleicheüberwachung aktiv!"  
        End If
        If funk2() = True Then
            FlashIcon(Handle, FLASHW_TRAY + FLASHW_TIMERNOFG)
            SetBalloonTip2()
        ElseIf funk2() = False Then
            NotifyIcon2.Text = "Teilabgleicheüberwachung aktiv!"  
        End If
    End Sub

    Public Structure FLASHWINFO
        Public cbSize As Int32
        Public hwnd As IntPtr
        Public dwFlags As Int32
        Public uCount As Int32
        Public dwTimeout As Int32
    End Structure

    Public Sub FlashIcon(ByVal Handle%, ByVal Flags%)
        Dim flash As New FLASHWINFO
        flash.cbSize = Runtime.InteropServices.Marshal.SizeOf(flash)
        flash.hwnd = Handle
        flash.dwFlags = Flags
        flash.dwTimeout = 500
        FlashWindowEx(flash)
    End Sub

    Public Sub SetBalloonTip1()
        NotifyIcon1.BalloonTipTitle = "Neue Vollabgleiche!"  
        NotifyIcon1.BalloonTipText = "Es sind neue Vollabgleiche vorhanden! Bitte importieren Sie diese!"  
        NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info
        NotifyIcon1.ShowBalloonTip(5000)
        NotifyIcon1.Text = "Neue Vollabgleiche!"  
    End Sub

    Public Sub SetBalloonTip2()
        NotifyIcon2.BalloonTipTitle = "Neue Teilabgleiche!"  
        NotifyIcon2.BalloonTipText = "Es sind neue Teilabgleiche vorhanden! Bitte importieren Sie diese!"  
        NotifyIcon2.BalloonTipIcon = ToolTipIcon.Info
        NotifyIcon2.ShowBalloonTip(5000)
        NotifyIcon2.Text = "Neue Teilabgleiche!"  
    End Sub

End Class