Option Explicit
 
Private Type NumberDistanceType
    number As Integer
    Position As Integer
    Distance As Integer
End Type
 
Dim NumberRegister() As NumberDistanceType
 
 
Private Sub Form_Load()
 
    Call NumberDistance("C:\daten\sa-ziehungen.txt", 3052, 2999, _
                        "C:\daten\sa-Ergebnis.txt")
 
End Sub
 
'usw.