Boucle et sequencement en visual basic

Bonjour,
regarder ce code:

Private Sub Command4_Click()
Dim tempo As Long
Dim tempo1 As Long

If Command4.Caption <> "Lecture Auto A" Then
Command4.Caption = "Lecture Auto A"
'Else
'Command4.Caption = "Arret"
'End If

Do While Command4.Caption = "Lecture Auto A"
Form1.StatusBar1.SimpleText = "Q: MA"
Call Connexion(Form1) 'envoi de la barre de status
Call reception 'on met ds utile ce qu'on recoit
If utile = "" Then
Exit Sub

End If

If utile <> "" Then
If Mid(utile, 2, 1) = "a" Then
Text2.Text = "La liste des defauts a été modifiée"
End If
If Mid(utile, 2, 1) = "A" Then
Text2.Text = ""
End If
End If

Nbcompteurs = Val("&H" & Mid(utile, 3, 2))
For i = 1 To Nbcompteurs
Text1(i - 1) = Mid(utile, (i * 2) + 3, 2)
Next
For i = Nbcompteurs To 15
Text1(i) = "**"
Next
If Command4.Caption <> "Lecture Auto A" Then
Command4.Caption = "Lecture Auto A"
End If

If Command4.Caption <> "Lecture Auto A" Then
Command4.Caption = "Arret"
End If

tempo = Timer + 5
Do While Timer < tempo
Loop
'If Command4.Caption = "Lecture Auto A" Then
'info = MsgBox(tempo, vbInformation)
'End If
Loop

End If
End Sub

Le prbleme est que mon bouton "arret" censé apparaitre apres le clique du bouton "Lecture Auto A" n'apparait pas et kan je clique sur "Lecture Auto A" ça boucle sans fin et pour arreter je dois fermer l'ordinateur je ne sais plus koi faire avec ces sequencements, J'ai besoin de votre aide.