Excel- VBA- podmienka

Dobry den,
v Exceli mam funkciu:
1. spusti proces
|
v
2. InputBox (zapise udaj do AA1)
|
v
3. Je udaj v AA1 zapisany?
a chcem ak:
je podmienka splnena, proces zbehne dalej (prip. zavola proceduru), ak nie, aby skocilo k bodu 1 respp. 2
Ako bude dana funkcia vyzerat?

Momentalne f-cia vyzera nasledovne:

Sub x()
With Range("AA1")
Do
.Value = InputBox("vpis text")
Loop Until .Value = "podmienka"
End With
End Sub

No InputBox zostav stale spusteny a proces nepokracuje dalej. InputBox sa neda ani zatvorit.
Proste potrebujem,ze ak sa hodnota vpsie, nech proces pokracuje skopirovanim hodnoty do "AA1" a dalej.
Ak sa nevpise, nech sa proces zastavi ale nech je mozne InputBox zatvorit

Vopred DAKUJEM