🥳　はーい。皆さん、お元気ですかーーー
てか、地球人のネットサーフィンみてたら、JPG2BMPの
ソースコードを閃きました。　こんな感じ

JPGtoBMP
'適当にユーザーフォームを作成し
'Imageオブジェクトを作成し
'フォーム名「ima」
'オブジェクト名「Image1」とすること

Public PP, FF,NN As String
Public LL As Long

Sub JPGtoBMP()
PP = ThisWorkbook.Path
FF = PP＆"\xxx.jpg"　'フルパス
NN= PP＆"\xxx.bmp"　'フルパス

ima.Image1.Picture = LoadPicture(FF)

SavePicture ima.Image1.Picture, NN
'ファイル名xxx.bmpでbmp形式で保存

End Sub
'*******

ま、机上もテストもマダだから、バグってると思うから
早く、テストしたいでーーーーす。
ていうか、JPG2BMP なんて意味ないけど、とにかく
早くJPG2BMPコーディングしよっーーーと