InStr

Bem, eu estou desenvolvendo um programa de respostas automáticas, eu consegui fazer o que eu queria, porém ficou um POG gigantesco.

Bem eu estou usando este código para ele responder automáticamente:

If Form1.Check1.Value = 1 Then
If InStr(sData, "Natal") Then
SendKeys "Natal = Papai Noel" & "+{enter}"
End If
End If

Isso é, "sData" irá ter varios valores aleatórios, e se algum valor combinar com "Natal", irá escrever a mensagem "Natal = Papai Noel", porém para mim poder fazer com a letra "natal" (reparem, sem a letra maiuscula), eu tenho que re-usar o mesmo código, fazendo um pog gigantesco. Queria saber, como fazer que fiquem tudo dentro do mesmo código, exemplo:

Seria algo assim, mais eu não sei como fazer:

If Form1.Check1.Value = 1 Then
If InStr(sData, "Natal" OR "natal") Then
SendKeys "Natal = Papai Noel" & "+{enter}"
End If
End

Ou então:

If Form1.Check1.Value = 1 Then
If InStr(sData, "Natal", "natal") Then
SendKeys "Natal = Papai Noel" & "+{enter}"
End If
End

Conseguiram entender?

Ah, e tem mais uma coisa, como faço pra colocar um delay entre eles, eu sei que tem que usar um timer, mais não sei de que forma.

Obrigado, aguardo respostas.