Public Class frmSKEditor
    Inherits System.Windows.Forms.Form
 
'Module
    Public Shared arrModul1(1, 0) As String
    Public Shared arrModul2(1, 0) As String
 
sub test
'Modul 1 mit allen Ketten einlesen
        If bM1_vorhanden = True Then
            Import_Module(arrModul1)
        End If
 
'Modul 2 mit allen Ketten einlesen
        If bM2_vorhanden = True Then
            Import_Module(arrModul2)
        End If
end sub
 
Public Sub Import_Module(ByVal arrModul(,) As String)
 
        ReDim arrModul(1, Textzeilen)
 
Dim i As Integer
        For i = 0 To 5
            'Array Zeilenweise füllen
            arrModul(0, i) = sr0.ReadLine
            KontrollString = arrModul(0, i)
        Next i
end sub
end class