Dim array_winkel(5000, 100)
Dim c As Integer
'c = 1
teta = 0
 
If (Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or _
  Text5.Text = "") Then
 
    MsgBox "verify input data"
 
        Else
        involute_ending_angle = Val(Text4.Text) * pi   'later, input all data 
        ' by user
        thickness_of_wrap = Val(Text2.Text)             
        basic_circle_radius = Val(Text1.Text) '3        
        inner_involute_starting_angle = Val(Text3.Text) * pi
        alpha = (thickness_of_wrap / (2 * basic_circle_radius))
        outher_involute_lenght_a = 0
 
        step = 0.017453292 * (Val(Text5.Text)) 'for manuall testing increasing 
        ' step is 1 degree or 
        number_of_steps = Int((2 * pi) / step)
 
 
Do While teta < involute_ending_angle
    n = Int(((involute_ending_angle - teta - inner_involute_starting_angle)/(2 _
      * 3.1415))+1)    
'n hat werte entweder 2, 3 ....
    c = 1
array_winkel(x, y) = teta   'array_winkel(zeile, spalte)
y = 1
        Do While c <= n
             contact_angle = involute_ending_angle - teta - 2 * 3.1415 * (n - c)
 
             array_winkel(x, y) = contact_angle
             y = y + 1
 
             'Print contact_angle
             c = c + 1
 
 
        Loop
 
    teta = teta + step
    x = x + 1
    y = 0
 
Loop
 
For x = 0 To 7
For y = 0 To 6
Print array_winkel(x, y)
Next x
Next y