Public Aufnahmez As Double
Public MSHFGName As String
 
 
Function Auslesen()
 
                    Dim id As Integer
                    id = 1
                    i = 1
                    Do Until i = 10
                      i = i + 1
                      If Me.Controls(MSHFGName).TextMatrix(i, 1) = "" Then
                        id = i - 1
                        GoTo fertig
 
                      End If
                    Loop