Visual Basic para Aplicaciones - Como puedo hacer para que un textbox tenga mas de 5 caracteres y menos de 9

Private Sub TextBox1_Change()

    'Asi es si quieres que no haya espacios entre los caracteres o inicien con espacio

    Me.TextBox1.Text = Trim(Me.TextBox1.Text)

    'Si deben de ir los caracteres separador por espacio pos no pongas nada

    'en este evento

End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    If Len(Me.TextBox1.Text) < 5 Or Len(Me.TextBox1.Text) >= 9 Then

        MsgBox "El Texto Debe Ser De 5 a 8 Caracteres", vbExclamation

        Cancel = True

    End If

End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    If Len(Me.TextBox1.Text) >= 8 Then

        MsgBox "El Texto Debe Ser De 5 a 8 Caracteres", vbExclamation

        KeyAscii = 0

    End If

End Sub