Public Class Form1
    Dim objlApp As Outlook.Application
    Dim objlNs As Microsoft.Office.Interop.Outlook.NameSpace
 
    Private Sub NewMail()
        Dim inBox As Outlook.MAPIFolder = objlNs.GetDefaultFolder( _
          Outlook.OlDefaultFolders.olFolderInbox)
        Dim items As Outlook.Items = inBox.Items
        Dim moveMail As Outlook.MailItem = Nothing
        items.Restrict("[UnRead] = true")
        Dim destFolder As Outlook.MAPIFolder = inBox.Folders("Test")
        Try
            For Each eMail As Object In items
                moveMail = TryCast(eMail, Outlook.MailItem)
                If Not moveMail Is Nothing Then
                    If InStr(moveMail.Subject, "Test") > 0 Then
                        moveMail.Move(destFolder)
                    End If
                End If
            Next eMail
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        objlApp = CreateObject("Outlook.Application")
        objlNs = objlApp.GetNamespace("MAPI")
        objlNs.Logon()
        AddHandler objlApp.NewMail, AddressOf NewMail
    End Sub
End Class