Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As UInt32, ByVal bInheritHandle As Int32, ByVal dwProcessId As UInt32) As IntPtr
 
        Public Shared Function GetProcessModules(ByVal Process_Name As String) As String
            Dim DataS As New StringBuilder
            Dim pc As Process() = Process.GetProcessesByName(Process_Name)
 
            Dim hndProc As IntPtr = OpenProcess(&H2 Or &H8 Or &H10 Or &H20 Or &H400, 1, CUInt(pc(0).Id))
            If hndProc = IntPtr.Zero Then
                Return "Error"
            End If
 
            Dim ModulesCount As Integer = pc(0).Modules.Count - 1
            For index As Integer = 0 To ModulesCount
                DataS.Append(pc(0).Modules(index).FileName & vbNewLine)
            Next
 
            Return DataS.ToString
        End Function

TextBox1.Text = GetProcessModules("ProcessName")

  Private CameraSig As Byte()() = New Byte()() {New Byte() {139, 13, 0, 0, 0, 0, 139, 21, 0, 0, 0, 0, 131, 236, 8, 221, 28, 36}, New Byte() {139, 21, 0, 0, 0, 0, 161, 0, 0, 0, 0, 131, 236, 8, 221, 28, 36}}
 
         Private CameraMask As String() = New String() {"xx????xx????xxxxxx", "xx????x????xxxxxx"}