Dim myProcess As New Process()
        Dim myProcessStartInfo As New ProcessStartInfo( _
          "C:\Programme\Avira\AntiVir Desktop\avscan.exe")
        myProcessStartInfo.Arguments = "/GUIMODE=3 /PATH= " & Chr(34) & "D:\" & _
        Chr(34)
        myProcessStartInfo.UseShellExecute = False
        myProcessStartInfo.RedirectStandardOutput = True
        myProcess.StartInfo = myProcessStartInfo
        myProcess.Start()
 
        Dim myStreamReader As StreamReader = myProcess.StandardOutput
        ' Read the standard output of the spawned process.
        Dim myString As String = myStreamReader.ReadLine()
        Console.WriteLine(myString)
        myProcess.Close()
 
 
        Console.ReadLine()