Private Sub Bef_Ausgabe_Click()
On Error GoTo Err_Bef_Ausgabe_Click
 
Dim F As Integer
Dim strLeuNr As String
Dim strLeuOrt As String
Dim strLeuTyp As String
Dim strMoID As String
Dim strRBnr As String
Dim strRAnr As String
 
'Dateiausgabe
F = FreeFile
Open "D:\AktuellesProjekt\leuchtentabelle.txt" For Output As #F
 
 
'Leuchtennummer als String
strLeuNr = Str(LeuchtenNr)
strLeuNr = Mid(strLeuNr, 2, 3)
If (strLeuNr > 99) Then GoTo FertigLeuNr
strLeuNr = "0" + strLeuNr
If (strLeuNr > 9) Then GoTo FertigLeuNr
strLeuNr = "0" + strLeuNr
 
FertigLeuNr:
 
'Leuchtenort als String
strLeuOrt = Str(Leuchtenort)
strLeuOrt = Mid(strLeuOrt, 2, 3)
If (strLeuOrt > 9) Then GoTo FertigLeuOrt
strLeuOrt = "0" + strLeuOrt
 
FertigLeuOrt:
 
'Leuchtentyp als String
strLeuTyp = Str(Leuchtentyp)
strLeuTyp = Mid(strLeuTyp, 2, 3)
If (strLeuTyp > 9) Then GoTo FertigLeuTyp
strLeuTyp = "0" + strLeuTyp
 
FertigLeuTyp:
 
'TK-ModulID als String
strMoID = Str(TKModulID)
strMoID = Mid(strMoID, 2, 3)
If (strMoID > 9) Then GoTo FertigMoID
strMoID = "0" + strMoID
 
FertigMoID:
 
'Relaisblock als String
strRBnr = Str(LCNRelaisBlockNr)
strRBnr = Mid(strRBnr, 2, 3)
If (strRBnr < 9) Then GoTo FertigRBnr
strRBnr = strRBnr
 
FertigRBnr:
 
'Relaisausgang als String
strRAnr = Str(LCNRelaisAusgangsNr)
strRAnr = Mid(strRAnr, 2, 3)
If (strRAnr < 9) Then GoTo FertigRAnr
strRAnr = strRAnr
 
FertigRAnr:
 
Print #F, strLeuNr;
Print #F, " ";
Print #F, strLeuOrt;
Print #F, " ";
Print #F, strLeuTyp;
Print #F, " ";
Print #F, strMoID;
Print #F, " ";
Print #F, strRBnr;
Print #F, strRAnr
'Datei schließen
Close #F
 
Exit_Bef_Ausgabe_Click:
    Exit Sub
 
Err_Bef_Ausgabe_Click:
    MsgBox Err.Description
    Resume Exit_Bef_Ausgabe_Click
 
End Sub