Public Sub VBUtilitiesSample()
    'Simple menu of all the VB Utility programs.

    Dim strMsg As String
    strMsg = _
          "1  VB Classes To VBA Wrapper" & vbCrLf _
        & "2  VB Line Numbers Add" & vbCrLf _
        & "3  VB Line Numbers Remove" & vbCrLf _
        & "5  VB Message Boxes Check" & vbCrLf _
        & "6  VB Modules To Class Module" & vbCrLf _
        & "7  VB Modules To Class Wrapper" & vbCrLf _
        & "8  VB Object Browser Info Add" & vbCrLf _
        & "9  VB Object Browser Info Remove" & vbCrLf _
        & "A  VB Preprocessor" & vbCrLf _
        & "B  VB Project To Windows Help File" & vbCrLf _
        & "C  VB Project To HTML Files" & vbCrLf _
        & "({Esc} cancels.)"

    Do
        Dim strCmd As String
        strCmd = InputBox(strMsg, "VBUtilitiesSample", "")

        Select Case UCase$(strCmd)
            Case "1"
                VBClassesToVBAWrapperSample
            Case "2"
                VBLineNumbersAddSample
            Case "3"
                VBLineNumbersRemoveSample
            Case "5"
                VBMessageBoxesCheckSample
            Case "6"
                VBModulesToClassModuleSample
            Case "7"
                VBModulesToClassWrapperSample
            Case "8"
                VBObjectBrowserInfoAddSample
            Case "9"
                VBObjectBrowserInfoRemoveSample
            Case "A"
                VBPreprocessorSample
            Case "B"
                VBProjectToHTMLFilesSample

            Case ""
                Exit Do

            Case Else
                MsgBox "Your choice was not recognized as one of the available menu items.  Please try again, or press {Esc} to Cancel.", vbExclamation + vbOKOnly
        End Select
    Loop While True
End Sub