check for process vb

Imports System.Diagnostics

Private Function checkproc(ByVal sName As String) As Boolean
    If Process.GetProcessesByName(sName).Count > 0 Then
        Return True
    Else
        Return False
    End If
End Function


    If checkproc("firefox") Then
        MsgBox("Is running!")
    Else
    MsgBox("Is not running!")
    End If