Hata Mesajı

[okankoc25]

Arkadaşlar buradaki arkadaşların yardıyla yapılan ufak bir proğrama hata mesajı eklemek istiyorum fakat ekleyemedim.Yardımlarınızı bekliyorum Dosya ektedir. Ayrıca Kodlar;

Private Sub TextBox9_Change()
On Error Resume Next
TextBox9.MaxLength = 10
Select Case Len(TextBox9)
Case 2, 5
TextBox9 = TextBox9 & "."
End Select
On Error Resume Next
If CDate(TextBox9.Text) >= CDate(TextBox1.Text) And CDate(TextBox9.Text) _
<= CDate(TextBox2.Text) Then
OptionButton1.Value = True
ElseIf CDate(TextBox9.Text) >= CDate(TextBox4.Text) And CDate(TextBox9.Text) _
<= CDate(TextBox3.Text) Then
OptionButton2.Value = True
ElseIf CDate(TextBox9.Text) >= CDate(TextBox6.Text) And CDate(TextBox9.Text) _
<= CDate(TextBox5.Text) Then
OptionButton3.Value = True
ElseIf CDate(TextBox9.Text) >= CDate(TextBox8.Text) And CDate(TextBox9.Text) _
<= CDate(TextBox7.Text) Then
OptionButton4.Value = True
ElseIf CDate(TextBox9.Text) >= CDate(TextBox11.Text) And CDate(TextBox9.Text) _
<= CDate(TextBox12.Text) Then
OptionButton5.Value = True
End If
End Sub

 

[okankoc25]

Yardımmm...