Mit cmdButton_Click Ereignis Prozedur beenden

Sub cmdStart_Click()
OPENCOM "COM1:9600,N,8,1"
SENDSTRING "STA,S,2" + Chr$(13)
RTS 1
S$ = Space$(10)
i = READSTRING(S$)
ThisWorkbook.Sheets("Tabelle1").Range("B1").Value = Mid$(S$, 1, i)
Call SpeedAuslesen
End Sub

Sub Speed()
Zeile=1
Do
SENDSTRING "kmh,g" + Chr$(13)
RTS 1
i = READSTRING(S$)
ThisWorkbook.Sheets("Tabelle1").Cells(Zeile,3)Value = Mid$(S$, 1, i)
RTS 0
Delay 100
Zeile=Zeile+1
Loop Until //cmdStop_Click wurde angecklikt//
End 

Sub
so etwa ....
un wie kann mann so eine Schleife so laufen lassen (imHintergrund :-)), dass ich mein UserForm weiter benutzen kann ?
Danke im Voraus