Usar una función InStr dentro de un caso seleccionado

Esto no parece estar funcionando. ¿Hay alguna manera de hacer lo que estoy tratando de hacer aquí? No puedo seleccionar un caso si el valor está en una picadura dada:

Select Case gTTD.Cells(r, 4)

     Case InStr(gTTD.Cells(r, 4), "MASTER LOG")
         resp = "MM LOG"
      Case InStr(gTTD.Cells(r, 4), "MASTER MET")
         resp = "MM MET"
     Case "PIR"
         gTTD.Cells(r, 7) = "Martin Trépanier"
         resp = "Martin Trépanier"

 End Select

Entiendo por qué esto no puede funcionar, pero ¿hay alguna manera de hacerlo funcionar? gracias

Gracias

Respuestas a la pregunta(2)

Su respuesta a la pregunta