I think that you should write something like this (in VB):
Path.ChangeExtension(input, Path.GetExtension(input).ToLowerInvariant)
or
Path.Combine(Path.GetDirectoryName(input), Path.GetFileNameWithoutExtension(input) & Path.GetExtension(input).ToLowerInvariant)
Path.Combine concatenates path elements (e.g. folder names) using '\' if required. It does not interprete the last argument as extension; it believes it is a folder.