اشکال در error provider

[rahil_2007]

باسلام
من میخواهم در یک textbox مربوط به درج تلفن- رشته بجای عدد درج نشود. این کار رو چطوری با error provider انجام دهم.

[ali_md110]

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
With Errper
If IsNumeric(TextBox1.Text) = False Then
.SetError(TextBox1, "لطفا عدد را وارد کنید")
TextBox1.Focus()
'TextBox1.Text = Nothing
Exit Sub
Else
.SetError(TextBox1, "")
End If
End With
End Sub