Private Function CreateTippLineOut(ByVal TippLineIn As String) As String
 
    'Funktion überprüft, ob im Parameter eine gültige 6er Auswahl 
    'aus 1-49 vorliegt und bildet den Ausgabestring (oder Nothing)
 
    Dim numbers() As String = TippLineIn.Trim.Split(" "c)
    If numbers.Length <> 6 Then Return Nothing
 
    Dim number As UShort, numberstr As String, numberlist As New List(Of UShort)
    Dim tipplineout As String = ""
 
    For i As Integer = 0 To numbers.Length - 1
       If Not UShort.TryParse(numbers(i).Trim, number) Then Return Nothing
       If number > 49 Or number < 1 Then Return Nothing
       If numberlist.Contains(number) Then Return Nothing
       numberlist.Add(number)
    Next i
 
    numberlist.Sort()
 
    For i As Integer = 0 To numberlist.Count - 1
       numberstr = CStr(numberlist(i))
       If numberstr.Length < 2 Then numberstr = "0" & numberstr
       TippLineOut &= numberstr & ","
    Next i
 
    Return tipplineout.Trim(","c)
End Function
 
 
 
Public Function CreateTipps(ByVal filenamein As String, _
                      ByVal filenameout As String) As Boolean
 
    'Funktion erstellt aus einer TippEingabe-Datei
    'eine Ausgabedatei nach vorgegebenem Muster
 
    Try
       Dim tipplinelist As New List(Of String)
 
       With tipplinelist
            .Add("<oelg>")
            .Add("<versionsNr>1.0</versionsNr>")
            .Add("<kundenNr>1</kundenNr>")
            .Add("<spielID>1</spielID>")
            .Add("<wsArt>10</wsArt>")
            .Add("<tnDauer>1</tnDauer>")
            .Add("<schein>")
       End With
 
       Dim tipplinesin() As String = IO.File.ReadAllLines(filenamein)
 
       For i As Integer = 0 To tipplinesin.Length - 1
          Dim tippline As String = CreateTippLineOut(tipplinesin(i))
          If tippline Is Nothing Then Return False
 
          tipplinelist.Add("<lottoTip>" & tippline & "</lottoTip>")
       Next i
 
       With tipplinelist
           .Add("</schein>")
           .Add("</oelg>")
       End With
 
       IO.File.WriteAllLines(filenameout, tipplinelist.ToArray)
       Return True
   Catch
       Return False
   End Try
 
End Function