VB Outlook Macro mover correo entrante a otra carpeta Visual Basic

Estoy empezando a programar macros en VB para Outlook. La idea es que al recibir correos con ciertas características (remitente o un asunto concreto) salte un mensaje de alerta en pantalla. Quería sustituirlo porque se muevan esos correos a otra carpeta de outlook pero no encuentro ejemplos. ¿Alguna idea?

Sería algo así:

EsUrgente = Contiene(eSubject, "Urgente", DisableCaseSensitive)
    EsUrgente = EsUrgente Or Contiene(eSubject, "Posible Fallo", DisableCaseSensitive)
If EsUrgente Then DesplegarAlerta "Urgente: " & eSubject, "Alerta Correo", oMail
Sub DesplegarAlerta(sBody, sHeader, oMail As MailItem)
    MsgBox sBody, vbInformation, sHeader
    oMail.Display
End Sub

Quería sustituir If EsUrgente entonces MUEVE EL CORREO a la carpeta URGENTE de la bandeja de entrada.