QQ的 5 -10位号,正则表达式应该怎么表达?

1-9\d{4,9}

Private Sub Form_click()
x = Val(InputBox(""))
If IsNumeric(x) = True Then
If Len(x) >= 5 And Len(x) <= 10 Then
MsgBox x & "是QQ号"
End If
End If
End Sub

这样不行嘛？

\d{5,10}