urgent!!! y wont this loop work???

[Nima Shariatmadari]

Why wont the do loop at the beggining loop the code it contains/??? i have no clue?? please help!


Private Sub Command1_Click()

Do

Dim intCount As Integer

intCount = 1

Dim X

X = Shell("rundll32.exe rnaui.dll,RnaDial " & Text1.Text, 1)


DoEvents

SendKeys "{enter}", True

DoEvents

Do While ActiveConnection = False

DoEvents

Loop

Dim iret As Long

iret = ShellExecute(Me.hwnd, vbNullString, _

Text2.Text, vbNullString, _

"c:\", SW_SHOWNORMAL)

dwMilliseconds = 30000

Sleep dwMilliseconds

Call HangUp

Loop Until intCount = Text3.Text