[Tutorial][Function] Doing something if a process is closed or open.

Function ProcessIsOpen(ByVal ProcessName As String)
        Dim Process As New Process()
        Dim CacheHolder = ""
        For Each Process In Process.GetProcesses(My.Computer.Name)
            On Error Resume Next
            CacheHolder = CacheHolder + " " + Process.ProcessName + ".exe"
        Next
        If CacheHolder.ToString.Contains(ProcessName) Then
            Return 1
        Else
            Return 0
        End If
    End Function

if ProcessIsOpen("notepad") Then
Msgbox("Notepad is Running")
Else
Msgbox("Notepad is Closed")
End if

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If ProcessIsOpen("notepad.exe") Then
Me.Close()
End If
End Sub