Не работает цикл по полученным файлам из папки

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Files() As String
        Dim Names() As String
        Dim i As Integer
        Dim j As Integer
        Dim str As String
        Dim str1 As String
        Dim x As Integer
        Files = IO.Directory.GetFiles("C:\kards\")
 
        For i = 0 To Files.Length
            str = Files(i)
            For j = 0 To str.Length
                If x = 2 Then str1 = str1 + str(j)
                If (str(j) = ".") Or (str(j) = "\") Then x = x + 1
                If x = 3 Then
                    Names(i) = str1
                    str1 = ""
                    x = 0
                End If
            Next j
            MsgBox(i)
        Next i
    End Sub
End Class

        Dim Files() As String
        Dim Names() As String
        Dim i As Integer
        Dim j As Integer
        Dim str As String
        Dim str1 As String = ""
        Dim x As Integer
        Files = IO.Directory.GetFiles("C:\kards\")
        ReDim Names(Files.Length)
        For i = 0 To Files.Length - 1
            str = Files(i)
            For j = 0 To str.Length - 1
                If x = 2 Then str1 = str1 + str(j)
                If (str(j) = ".") Or (str(j) = "\") Then x = x + 1
                If x = 3 Then
                    Names(i) = str1
                    str1 = ""
                    x = 0
                End If
            Next j
            MsgBox(Files(i))
        Next i