ファイルパスの拡張子の部分のみを変更する方法を記載します。

Path.ChangeExtensionメソッドを使用して、拡張子の変更をする

Dim sFileName1 As String = System.IO.Path.ChangeExtension("C:\work\myfile.txt", ".log")
Dim sFileName2 As String = System.IO.Path.ChangeExtension("C:\work\myfile", ".log")
Dim sFileName3 As String = System.IO.Path.ChangeExtension("C:\work\myfile\", ".log")

'1と2は結果が同じです3はC:\work\myfile\.logとなる