Dim txtDeuHi As TextBox
Dim txtSprHi As TextBox
'dim PrgLa as ?
 
Set txtDeuHi = frmHaupt.txt_DeutscheHilfe
Set txtSprHi = frmHaupt.txt_SpracheHilfe
Set prgLa = frmHaupt.prgb_Laden
 
For abc = 1 To X
    txtDeuHi.Text = txtDeuHi.Text + Deutsch(abc) + "####"
    txtSprHi.Text = txtSprHi.Text + Sprache(abc) + "####"
    prgLa.Value = ((abc / X) * 100)
Next abc