3. Write a function that removes all spaces from the string that is
   passed to it.  It returns the new string that does not contain any
   spaces.

Function RemoveSpaces (InputStr As String) As String
' The following function will string as a parameter, and will return a
' the same string, but with all spaces in it removed.

    ' The new string will be built into this variable.
    Dim Result As String
    Result = ""
    
    ' Go through each character in "InputStr."  Store each character
    ' in "TheChar" and only put characters that are not spaces into
    ' the "Result" variable, which is used to build the new string.

    Dim Count As Integer
    For Count = 1 to Len(InputStr)

        ' Store the next character in the input string
        Dim ThisChar As String
        ThisChar = Mid (InputStr, Count, 1)

        If ThisChar <> " " Then
            Result = Result & ThisChar
        End If

    Loop
    
    ' Return the characters that remain in result.
    RemoveSpaces = Result
    
End Function