TextBox Mantıklı Saat Formatı

[o2l3m]

Aşağıdaki kodu kullanıyorum. Fakat yanlış veri girişine karşı uyarmasını istiyorum. Mesela 15:65 gibi mantıksız bir saat girişine izin vermemeli kod.

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox2) < 5 Then TextBox2 = Format(TextBox2, "00:00")
End Sub

 

[askm]

Format(TextBox2, "hh:mm") olarak deneyiniz.

 

[o2l3m]

Teşekkürler. Sorun düzeldi.

Fakat girişleri

1235
1445
0015

şeklinde yapılıyordu. Şimdi o şekilde girişi kabul etmiyor. Sorun nerde olabilir?

 

[askm]

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox2) < 5 Then TextBox2 = Format(left(TextBox2,2)&":"& Mid(Textbox2,3,2), "00:00")
End Sub

 

[o2l3m]

Sanıyorum sorun var;

1325
1525

gibi mantıklı girince her seferinde 00:01 olarak gösteriyor.

Mantıksız girdiğim zaman

1660
1668

vb. gibi ne yazarsam onu gösteriyor.