VBS – Usar expresión regular

Validando un formulario haciendo uso de VBS me encontre con el problema de usar una expresion regular, aqui dejo el código que use para validar que un texto sólo contenga un número entero positivo:

Function ValidarEntero(TextoEntrada)
Dim strMensajeError
strMensajeError = ""
Set regEx = New RegExp
' Modificar la siguiente linea para ajustar al patron que se desea evaluar
regEx.Pattern = "^\d*$"
If Not regEx.Test(TextoEntrada) Then
strMensajeError = "El valor debe ser entero y mayor o igual a Cero(0)"
End If
ValidarEntero = strMensajeError
End Function


Espero sea de ayuda.
Un Saludo.