[WSH] Почему не работает скрипт?

[RedRabbit]

Помогите пожалуйста.

'проверка соответствия шаблону. Возвращаемое значение - булево (число). 
Option Explicit
Dim objRegExp, Str
Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Pattern = "абв+"
Str = "абвввггг"
MsgBox objRegExp.Test(Str)
'Если истинно выводим YAHOO!!!, но почему то не работает:(
if Str = True Then 
MsgBox "YAHOO!!!"
End If

if objRegExp.Test(Str) = true Then
Извиняюсь не ту переменную поставил, а промучился целый час.

Тема закрыта. Модераторы можете удалить.