Loops in VBA

This code below does the following:

The user enters strings in a input box. A message box is then returned giving the user information about the string entered. When the user clicks the ok button on this message box, the whole process repeats itself until the user clicks cancel on the input box. I have two problems.

My first problem involves the if statement. If the condition of the if statement is true a message box appears telling the user that the string entered was too short (less than 10 characters). After the user clicks the Ok button in the message box, i want the input box in the beginning of the code to appear again giving the user a chance to enter the correct number of characters.

My second problem is that I am trying to figure out how I can return a message to the user when they are done entering strings (this would be when the user clicks cancel on the input box)

Sub MoreStringMagic()

Dim myWord As String
Dim sCharacter As String


Do

myWord = InputBox("Please enter a word of at least 10 characters." & _
vbCrLf & "Press cancel if you are done", "String Magic")

If myWord = vbCancel Then End


sCharacter = Right(myWord, Len(myWord) - 2)

If Len(myWord) < 10 Then MsgBox ("You must enter a string of at least ten characters" & vbCrLf _
& "You entered a string of " & Len(myWord) & " characters"), vbOKOnly, Error



MsgBox ("Word Length: " & Len(myWord) & " characters" & _
vbCrLf & "First four characters: " & Left(myWord, 4) & _
vbCrLf & "Last six characters: " & Right(myWord, 6) & _
vbCrLf & "Fifth character: " & Mid(myWord, 5, 1) & _
vbCrLf & "All but first 2 and last 2 characters: " & Left(sCharacter, Len(sCharacter) - 2) _
), vbOKOnly, "String Magic"



Loop Until myWord = ""

Sub MoreStringMagic()
Dim myWord As Variant
Dim sCharacter As String

    Do
    
        myWord = InputBox("Please enter a word of at least 10 characters." & _
        vbCrLf & "Press cancel if you are done", "String Magic")
    
        If myWord <> "" Then
        
            sCharacter = Right(myWord, Len(myWord) - 2)
            
            If Len(myWord) < 10 Then
            
                MsgBox "You must enter a string of at least ten characters" & vbCrLf _
                        & "You entered a string of " & Len(myWord) & " characters", vbOKOnly, Error
            Else
            
                MsgBox ("Word Length: " & Len(myWord) & " characters" & _
                vbCrLf & "First four characters: " & Left(myWord, 4) & _
                vbCrLf & "Last six characters: " & Right(myWord, 6) & _
                vbCrLf & "Fifth character: " & Mid(myWord, 5, 1) & _
                vbCrLf & "All but first 2 and last 2 characters: " & Left(sCharacter, Len(sCharacter) - 2) _
                ), vbOKOnly, "String Magic"
            End If
        End If
    Loop Until myWord = ""
    MsgBox "All done"
End Sub

What does this part of the code do?

If myWord <> "" Then

It checks if anything was entered in the inputbox.