Numeric Validation Of User Form Textbox

I want one procedure that will validate the CURRENT textbox (not named by name, to allow for the procedure to be included in the change event of several different textboxes), to see if it is numeric (decimal places allowed) in Excel 2007.

I followed the instructions here: {url}, which describe exactly what I want to do. So I put the final procedure listed on that page (the dynamic validation code) into the private module of the user form object as listed below:

Private Sub pipes_Change()

OnlyNumbers

End Sub

Private Sub OnlyNumbers()
'This procedure checks to see if the value
'of the current textbox is a number or not

If TypeName(Me.ActiveControl) = "TextBox" Then

If Not IsNumeric(.Value) And .Value <> vbNullString Then

MsgBox "Sorry, only numbers are allowed."

.Value = vbNullString

End If

End With

End If

End Sub

I then ran the form and typed a number into the "pipes" textbox that had been validated. A compile error is thrown: "Invalid or unqualified reference", highlighting the ".Value" portion of IsNumeric. I tried to remove certain parts of the code, such as the IF statement and the "And .Value <> vbnullstring", but nothing works. I have a feeling it is because this code was created for Excel 2003 (though I'm not certain).