Usando uma função InStr dentro de um Caso de Seleção

Isso não parece estar funcionando. Existe uma maneira de fazer o que estou tentando fazer aqui? Não posso selecionar um caso se o valor estiver em uma determinada picada:

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

Eu entendo por que isso não pode funcionar, mas existe uma maneira de fazê-lo funcionar? obrigado

Obrigado

questionAnswers(2)

yourAnswerToTheQuestion