Convertire un file immagine Bitmap in Jpeg

Questa procedura VB.net serve per convertire un file immagine Bitmap in Jpeg.
Ritorna un nuovo file con lo stesso nome del file BMP passato come argomento ma in formato JPG.

Codice

Private Sub BmpToJpg(ByVal FileBMP As String)

      Dim objBmp As New Bitmap(FileBMP)
      Dim FileJPG As String = Strings.Left(FileBMP, Len(FileBMP) - 4) & ".jpg"
      objBmp.Save(FileJPG, System.Drawing.Imaging.ImageFormat.Jpeg)
      objBmp.Dispose()

End Sub