VBA-Excel: Buscar si palabra tiene tilde

Separar palabras con tildes

'http://stackoverflow.com/questions/22542834/how-to-use-regular-expressions-regex-in-microsoft-excel-both-in-cell-and-loops

Sub buscarAcentos()
Dim regEx As New RegExp
 Dim strPattern As String: strPattern = "[áéíóúÁÉÍÓÚ]"
 Dim Myrange As Range
Dim i As Integer

    
            With regEx
            .Global = True
            .MultiLine = True
            .IgnoreCase = False
            .Pattern = strPattern
        End With
        For i = 5 To 124
        
        Set Myrange = ActiveSheet.Range("B" & i)
        strInput = Myrange.Value
        If regEx.Test(strInput) Then
        Range("F" & i).Value = strInput
        Range("G" & i).Value = ""
        Else
        Range("G" & i).Value = strInput
        Range("F" & i).Value = ""
        End If
        Next i
End Sub