Imports System
Imports System.Text.RegularExpressions

Class Sample
  Shared Sub Main()
    Dim files() As String = New String() { _
      "sample.txt", _
      "sample.txt.bak", _
      "sample.cs", _
      "test.txt", _
      "test.jpeg", _
      "README" _
    }

    For Each file As String In files
      Console.Write("{0,-20} ", file)

      ' 正規表現にマッチする箇所を探索
      Dim m As Match = Regex.Match(file, "\..*")

      If m.Success
        ' マッチする箇所があった場合、マッチした部分の文字列と、インデックス・長さを表示する
        Console.WriteLine("{0,-10} ({1}, {2})", m.Value, m.Index, m.Length)
      Else
        ' マッチする箇所がなかった場合
        Console.WriteLine("?")
      End If
    Next
  End Sub
End Class

sample.txt           .txt       (6, 4)
sample.txt.bak       .txt.bak   (6, 8)
sample.cs            .cs        (6, 3)
test.txt             .txt       (4, 4)
test.jpeg            .jpeg      (4, 5)
README               ?