You can get an array of all files that match filename_v*.ext
from Directory.GetFiles(path, searchPattern).
Dim files As String() = Directory.GetFiles("c:\SomePath", "filename_v*.ext")
Parse out the numbers after _v
, order them, then take the highest + 1.