I need some help here

Dim chars() As Char = New Char() {"A"c, "B"c, "C"c, "D"c, "E"c}
        Dim t As Date = Date.Now
        For Each c0 As Char In chars
            For Each c1 As Char In chars
                For Each c2 As Char In chars
                    For Each c3 As Char In chars
                        For Each c4 As Char In chars
                            TextBox1.AppendText(c0 & c1 & c2 & c3 & c4 & Environment.NewLine)
                        Next
                    Next
                Next
            Next
        Next
        MsgBox(TextBox1.Lines.Length - 1 & " combinations created from " & chars.Length & " characters in " & Date.Now.Subtract(t).TotalSeconds & " seconds")