Public Sub StringLenght()

     Dim strName As String

     Do
             strName = InputBox("Enter Name")
         If Len(strName) < 2 Then
             MsgBox "Entered name is too short!"
         ElseIf Len(strName) > 10 Then
             MsgBox "Entered name is too long!"
         Else
             Exit Sub
         End If
     Loop

End Sub