chook,
a Estrutura do Application.InputBox , é seguinte :

Application.InputBox(Prompt, Title, Default, Left, Top, HelpFile, HelpContextId, Type)

É só ajustar as posições Left e Top, veja no linka baixo temos um exemplo, e explicação sobre as diferenças entre InputBox e Application.InputBox :

http://www.tomasvasquez.com.br/blog/mic ... n-inputbox

Public Sub TesteAppInputBox()
    Dim num As Long
        
        num = Application.InputBox("Digite um valor numérico", "Application.InputBox", "Valor numérico", 340, , , , 1)
        
        MsgBox "O valor digitado foi: " & num
        
End Sub

[]s