UserForm.image Bildname auslesen

Sub Test()
Dim sPfa$, sFil$, sTmp$
sPfa = "C:\Users\Peter\_4-Tools\Downloads\"
sFil = "xMap.jpg"
uFor.Ima.Picture = LoadPicture(sPfa & sFil)
'sTmp = uFor.Ima.Picture.Name 'Test sollt wieder den Namen von "sFil" zeigen
uFor.Show
End Sub