Update mehrere Textboxen in Userform

Private Sub meine Textbox_Change() call fill eröffnen. Bei 90 solcher Textboxen wird das extrem  _
unübersichtlich.
Meine Frage: Gibt's hierzu keine einfachere Lösung? Wäre froh für Lösungsansatz. Note: Bin noch  _
nicht so bewandert mit VBA und Userforms.
Liebe Gruess
Richi

Private Sub Block_1_1_Change()
Call Fill
End Sub


-------------------------------------------------------------
Private Sub Fill()
Dim wb As Workbook
Dim wsH As Worksheet                                               'Hilfsdaten
Dim wsD As Worksheet                                               'Daten
Dim last As Integer
Dim letzterBlock As Integer
Dim i, s As Integer
Dim check As String
Set wb = ThisWorkbook
Set wsH = wb.Worksheets("Hilfsdaten")
Set wsD = wb.Worksheets("Daten")
letzterBlock = wsH.Cells(Rows.Count, 17).End(xlUp).Row
For i = 1 To 30
If ("Block_1_" & i)  "" Then
check = Me.Controls("Block_1_" & i).Value
For s = 3 To letzterBlock
If check = wsH.Cells(s, 17).Value Then
Me.Controls("Zeit_Von_1_" & i).Value = wsH.Cells(s, 18).Value
Me.Controls("Zeit_Bis_1_" & i).Value = wsH.Cells(s, 19).Value
End If
Next s
End If
Next i
End Sub