Gostaria de fazer uma função que verificasse o sexto caracter de um arquivo e de acordo com isso executasse uma função. Por exemplo, eu possuo dois arquivos com o mesmo nome, mas com o sexto caracter diferente em ambos e quero identifica-los.
//Abrindo os arquivos
Dim t1() As String = File.ReadAllLines("txt/t2.txt")
Dim t2() As String = File.ReadAllLines("txt/t2.txt")
//Fazendo a comparação
If t1(0).Substring(5, 1).Equals(t2(0).Substring(5, 1)) Then
//arquivo na posição 6 são iguais
Console.WriteLine("O caracter '{0}' são iguais.", t1(0).Substring(5, 1))
Else
//arquivo na posição 6 não são iguais
Console.WriteLine("O caracter '{0}' não são iguais", t1(0).Substring(5, 1))
End If