German Oberfläche arbeitet sehr langsam

Sub AStreams_NewData (Buffer() As Byte)
Dim msg As String
    msg = BytesToString(Buffer, 0, Buffer.Length, "Windows-1252")
      
    Dim msg_trennen() As String = Regex.Split("\|",msg)
Parse1 = msg_trennen(1).Trim
Parse2 = msg_trennen(2).Trim
Parse3 = msg_trennen(3).Trim
Parse4 = msg_trennen(4).Trim
Sleep(0)
CallSub(Input_Output, "DatenLesen")
End Sub

dim Wert (100)
dim i as Integer
dim lauf as boolean

i = 0
lauf = true
  do while Lauf = true
    do while i < 100 ' eine Art Timer die angibt wie oft die aktualisiere werden soll.
      i= i +1
      wert(i) = daten ' hier die Daten sammeln
  loop
  ' aktualisiere Anzeige
 ' in VB mit My.Application.DoEvents  ob es ein ähnliche Befehl in B4a gibt weiß ich nicht. In VB zwingt dieser Befehl das Programm die Anzeigen zu aktualisieren.
  i = 0
loop