Office: Testbox Verwenden

hi,
ihr habt mir schon oft weiter geholfen hoffe ich bekomme jetzt auch noch mal hilfe.
mein Problem ist ich will werte in eine textbox schreiben die sich änderen. wenn ich dies im debug-modus mache geht das auch wunder bar. doch leider geht es nicht während mein programm läuft. hoffe ihr habt einen tipp für mich habe schon so einiges ausprobiert und bin zu keinem ergebins gekommen. wollte es über eine UserForm machen da ging es nicht jetzt habe ich eine textbox einfach auf meinem Excel-sheet. hier geht es aber leider auch nicht.
bin echt rat los, denn manchmal wenn ich mein makro laufen lasse hält es einfach ohne grund an und läuft erst weiter wenn ich ESC-taste drücke aber da ist auch nicht immer so und wenn auch nie an einer bestimmten stelle.

Code:

Dim MySheet As Worksheet
Dim Arra As Variant
Dim N As Double
Dim i As Integer



Sub Main()
Set MySheet = Worksheets("Tabelle1")    'Definiert den Sheet der Benutz werten soll
wert = 0                                'Setzt Wert auf Null
i = 0
matlabinit                              'öffnet Matlab

wert = MySheet.Cells.Range("A1")        'Scheibe den Zelleninhalt aus A1 in Wert


For N = 1 To 160 Step 1
Vektor = Array(0, 0)                    'Erzeugt ein Array für simulink
Vektor(1) = wert                        'Schreibt an die Zweite Stelle den Inhlt Auszelle A1

wert = wert + 1



M = M + 1
  If M = 20 Then
  

 B3 = MySheet.Cells.Range("A5")


i = i + 1

MySheet.Cells(i, 5).Value = B3            'Schreibt jeden 10 Wert von Messwert_BE1 in in Spalte E

x = B3 * 3
MySheet.Cells(i, 6).Value = x                 'Schreibt jeden 10 Wert von DeltaU in Spalte F


 
'newHour = Hour(Now())
'newMinute = Minute(Now())
'newSecond = Second(Now()) + 1
'waitTime = TimeSerial(newHour, newMinute, newSecond)
'Application.Wait waitTime

Sheets("Tabelle1").TextBox1 = B3
 
  
'newHour = Hour(Now())
'newMinute = Minute(Now())
'newSecond = Second(Now()) + 1
'waitTime = TimeSerial(newHour, newMinute, newSecond)
'Application.Wait waitTime
  
  M = 0
  End If
        
        
        MLPutVar "vektor", Vektor           'Muß MLPutVar heissen da die Variable nur in der Vb ist und nicht in Excel
            
        MLEvalString ("simin=vektor'")      'Generriert ein Zeilnen Array
        MLEvalString ("sim 'Verstaerkt'")   'Startet simulink Datei " Verstaerkt"





   MLGetMatrix "simout", "Tabelle1!A5"          'Schreibt Wert aus Simulink in Zelle A5
   MatlabRequest



Next

End Sub

Sub Start()
Main



End Sub

hoffe es gibt da hilfe von euch. schon mal vorab danke