Public Class Form1
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
 
        Dim ZeichenTeiler As Object
        Dim anzahl As Integer
        Dim eingabe As String
 
        eingabe = txtEingabe.Text
        ZeichenTeiler = Split(eingabe, ";")
 
        Dim Zahl(UBound(ZeichenTeiler)) As Integer
 
        For L = 0 To UBound(ZeichenTeiler) Step 1
 
            anzahl = anzahl + 1
            Zahl(L) = CInt(ZeichenTeiler(L))
 
        Next L
 
        Dim aktuelleKombination(anzahl) As Integer
 
        Select Case anzahl
 
            Case 2
 
                For a = 1 To 2
                    For b = 1 To 2
 
                        If a <> b Then
 
                            aktuelleKombination(1) = Zahl(a - 1)
                            aktuelleKombination(2) = Zahl(b - 1)
 
                            For ausgabe = 1 To 2
                                txtOut.Text &= aktuelleKombination(ausgabe)
                            Next
 
                            txtOut.Text &= vbCrLf
 
                        End If
 
                    Next
                Next
 
            Case 3
 
                For a = 1 To 3
                    For b = 1 To 3
                        For c = 1 To 3
 
                            If a <> b AndAlso a <> c AndAlso b <> c Then
 
                                aktuelleKombination(1) = Zahl(a - 1)
                                aktuelleKombination(2) = Zahl(b - 1)
                                aktuelleKombination(3) = Zahl(c - 1)
 
                                For ausgabe = 1 To 3
                                    txtOut.Text &= aktuelleKombination(ausgabe)
                                Next
 
                                txtOut.Text &= vbCrLf
 
                            End If
 
                        Next
                    Next
                Next
 
            Case Else
 
                MsgBox("Fehler")
 
        End Select
 
 
    End Sub
End Class