sub Arry_laden()  
            runden(s1(i), s2(i), eg(i))
end sub
Public Function runden(ByVal zahl_1 As Integer, ByVal zahl_2 As Integer, ByVal _
  zahl_3 As Integer) As String
        Dim Rnd As New System.Random
z_z:
        zz = Rnd.Next(-2, +2)
        If zz = 0 Then GoTo z_z
s_1:
        zahl_1 = CInt(Rnd.Next(10000, 100000000))
        zahl_1 = zahl_1 + zz
        If InStr(CStr(zahl_1 / 2), ",") > 0 Then GoTo s_1
s_2:
        zahl_2 = Rnd.Next(100, 9999)
        zahl_2 = zahl_2 - zz
        zahl_3 = CInt(zahl_1 / zahl_2)
        If InStr(CStr(zahl_3 / 2), ",") > 0 Then GoTo s_2
        Return (zahl_1, zahl_2, zahl_3)  ' Hier ist bestimmt der Fehler
    End Function