VBA Inputbox placering på skærm

strAns = InputBox("Tast dit navn", "Angiv navn", "Jensen", 1700, 1000)

Dit forslag virker, jeg er vist faret vild i komma'erne.
Tak for hjælpen

Velbekomme 😃

Må jeg bede om lidt mere Ekspert hjælp?
Din kodelinje placerede Inputboksen lige hvor jeg gerne vil have den.
Men jeg kan kun få koden til at læse Input som tekst. Jeg skal bruge et tal mellem 1 og 99. Jeg  vil gerne sikre mig at det er nemt at komme videre, hvis der klikkes OK uden gyldigt tal.
Koden herunder tester Input, og hvis det ikke er et gyldigt tal kommer straks en ny inputboks.   
Tror du det kan lade sig gøre at flytte Inputboxen med denne koden?
            Sub Vis_Konto() 
            ktnr = Application.InputBox(" Indtast konto numer", " H  M  V ", , , , , , 3)
            If ktnr > 0 And ktnr < 100 Then GoTo næste
            Vis_Konto
næste:

Måske:

Eller måske denne er bedre:

Tak for dine forslag. jeg har leget lidt med dem, men jeg kan stadig ikke få Inputboxe til at returnere talværdi. Når jeg skal regne videre på indtastet værdi læses  tal som "string".
Men når jeg vil have vist indtastning  i Msgbox står det som tal.
Det er lidt mere end jeg kan forstå.
Jeg vil indtil videre bruge min egen løsning (#4), og så må jeg leve med at Inputbox til tider dækker nogle tal som jeg gerne vil se. Hvis nødvendigt kan jeg jo med musen flytte Inputboxen.
Tak for din inspiration

Hvordan regne du videre på input?

Hvis jeg skriver til en celle:
range("A1") = ktnr
Bliver det et tal?

Hvis jeg beregner: range("A1") = ktnr + 4 så virker det også?

Med 'Do_Loop' funktionen bruger jeg det indtastede tal til  at søge et kontonummer.
Dit spørgsmål fik mig til at prøve at sætte Inputbox værdi, 'ktnr' i celle [A1] og derefter erklære variabel 'vis'=activecell.value.
Bingo, det virker.
Variablen 'vis' er talformat, og kan bruges til at finde mit kontonummer.
Nu prøver jeg det mere af de kommende dage.

Nu er koden på plads. Fra Inputbox placeres indtastning i celle A1, variablen ktnr erklæres med værdien i celle A1.
Jeg forstår ikke hvorfor en 'streng' på den måde ændres til tal. Men pyt når det virker.
Det virker med placering af Inputbox midt på skærmen, og fejlkontrollen virker også, så makroen starter forfra hvis der indtastes fejlværdi eller ingenting.

Sub Vis_Konto()
  Application.ScreenUpdating = False
  [A1] = InputBox(" Indtast konto numer", " H  M  V ", , 12000, 8000)
  ktnr = [A1].Value
        If ktnr > 0 And ktnr < 100 Then GoTo næste1
            Vis_Konto
næste1:  -------------

Rigtig mange tak for din inspiration.

Det var dejligt, er dog stadig nysgerrig på hvad der sker efter næste1:

Min kode laver almindelig bogføring for en lille lokal forening.Der indtastes Bilagsdato, og -nr. posteringstekst, beløb og debet- og kreditkontonumre.Konti er godt 100 kolonner der 2 og 2 hører sammen. En makro flytter nu beløbene ud i konti / kolonner som er defineret ved et kontonr.
Med den makro vi har korresponderet om laver jeg et konto udtog på hver konto.
Efter indtastning af kontonr. (dvs. efter næste1:) finder makroen de 2 kolonner der indeholder posteringer på kontoen,  og alle posteringslinjer som indeholder det aktuelle kontonr. Alle øvrige konto-kolonner og posteringslinjer skjules.
Mit færdige resultat er en side som kan udskrives, der indeholder alle specifikationer for f.eks. bankkonto eller kontingentkonto.
Den kan sammenlignes med et kontoudtog fra banken.
Tak for hjælpen.