[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم 
بالنسبة لسؤالك الجزء الأول منه يمكنك استخدام الخاصية MaxLength وتضع أي رقم تريد وليكن 7
او بالكود مع تحميل الفورم تضع الكود التالي

كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       TextBox1.MaxLength = 7
   End Sub

اما الجزء الثاني بهذا الكود في حدث Leave

كود :

Private Sub TextBox1_Leave(sender As Object, e As EventArgs) Handles TextBox1.Leave
       If TextBox1.Text.Length < 7 Then
           MsgBox("لايمكن ان يكون النص اقل من 7 احرف")
       End If
   End Sub