Position dialog box on current sheet

First, a grateful thank you to all the helpful people who generate online help for Excel users.

Right now, I want to combine two very nice vba suggestions but don't know where to put the position instruction inside the VBA for the CalcWhat. This doesn't work, or anything else I can think of to try:

Sub CalcWhat()
    Dim iAnsure As Integer

    Application.Calculation = xlManual
    iAnsure = InputBox("1 = Calculate A Used Range" _
      & vbCrLf & _
      "2 = Calculate This Worksheet" _
      & vbCrLf & _
      "3 = Calculate This Workbook" _
      & vbCrLf & _
      "4 = Calculate All Workbooks in Memory" _
      & vbCrLf & vbCrLf & _
      "Input Your Selection Number From Above" _
      & vbCrLf & "Then Click OK", _
      "Calculate What?", "Input Number Please", _
      5000, 5000)

CalcWhat.StartUpPosition = 0
CalcWhat.Top = Application.Top + 25
CalcWhat.Left = Application.Left + 25
CalcWhat.Show

    Select Case iAnsure
        Case 1 'Range Only
            Selection.Calculate
        Case 2 'Worksheet Only
            ActiveSheet.Calculate
        Case 3 'Workbook Only
            For Each wks In ActiveWorkbook.Worksheets
                wks.Calculate
            Next
        Case 4 'All Open Workbooks
            Application.CalculateFull
        End
    End Select
End Sub

Thank you in advance for your help.

"Slow but willing new VBA learner"