Soru Döngüden ilk değeri almak

[k0081]

Merhaba arkadaşlar;

isim = Dir$(CurDir & "\*.xlsx")
Do While isim <> ""
st = st + "  " & isim
isim = Dir$()
Loop

bu döngüden ilk dönen değeri nasıl alabilirim ?

 

[Adem12sanane]

isim = Dir$(CurDir & "\*.xlsx")
Do While isim <> "
st = st + " " & isi
isim = Dir$(
Loo
p)m"oop

 

[k0081]

Exit Do

ekleyerek çözdüm. Teşekkürler.

isim = Dir$(CurDir & "\*.xlsx")
Do While isim <> ""
st = st + "  " & isim
Exit Do
isim = Dir$()
Loop