Sub main()

    Dim rep As String
    Dim str As String

    str = "1 - ApplyTransformations" & VbNewline
    str = str + "2 - ArrayCopy" & VbNewline
    str = str + "3 - CenterObjects" & VbNewline
    str = str + "4 - GetObjectExtrema" & VbNewline
    str = str + "5 - HelpContents" & VbNewline
    str = str + "6 - Measure" & VbNewline & VbNewline
    str = str + "7 - MirrorObjects" & vbNewLine
    str = str + "8 - PolarArrayCopy" & vbNewLine
    str = str + "9 - RotateObjects" & vbNewLine
    str = str + "10 - ScaleObjects" & vbNewLine
    str = str + "11 - TranslateObjects" & vbNewLine

    rep = inputbox(str, "", 1)

    misc_tool(val(rep))

End Sub

Sub misc_tool(t As Integer)

    Select Case t

        Case 1
            MiscUtils.ApplyTransformations()
        Case 2
            MiscUtils.ArrayCopy()
        Case 3
            MiscUtils.CenterObjects()
        Case 4
            MiscUtils.GetObjectExtrema()
        Case 5
            MiscUtils.HelpContents()
        Case 6
            MiscUtils.Measure()
        Case 7
            MiscUtils.MirrorObjects()
        Case 8
            MiscUtils.PolarArrayCopy()
        Case 9
            MiscUtils.RotateObjects()
        Case 10
            MiscUtils.ScaleObjects()
        Case 11
            MiscUtils.TranslateObjects()
        Case Else
            Exit Sub

    End Select

End Sub