Do Until MyArrayFullText.GetValue(i, 0) = "!" & LabTopTStiff.Text
                                        If MyArrayFullText(i, 0) = Nothing Then
                                        ElseIf MyArrayFullText(i, 0).Chars(0) = _
                                          "!" Then
                                        Else
                                            Controls("LabLStiffWert" & k & _
                                              l).Text = _
                                              MyArrayFullText.GetValue(i, j)
                                            j = j + 1
                                            MyArrayFullText(i, j) = _
                                              MyArrayFullText(i, j).Remove(0, 1)
                                            Controls("LabLStiff" & k & l).Text _
                                            = MyArrayFullText.GetValue(i, j)
                                            If l Mod 5 = 0 Then
                                                l = 1
                                                k = k + 1
                                            Else
                                                l = l + 1
                                            End If
                                        End If
                                        j = 2
                                        i = i + 1
                                    Loop