I am getting run time error after trying to paste picture on commandbutton surface
Private Sub CommandButton1_Click()
MsgBox "You selected " & GetImportFileName
CommandButton1.Picture = GetImportFileName '<--RUN TIME ERROR '424'
Function GetImportFileName() As Variant
Dim Filt As String
Dim FilterIndex As Integer
Dim FileName As Variant
Dim Title As String
' Set up list of file filters
Filt = "Text Files (*.txt),*.txt," & _
"Lotus Files (*.prn),*.prn," & _
"Comma Separated Files (*.csv),*.csv," & _
"ASCII Files (*.asc),*.asc," & _
"All Files (*.*),*.*"
' Display *.* by default
FilterIndex = 5
' Set the dialog box caption
Title = "Select a File to Import"
' Get the file name
FileName = Application.GetOpenFilename _
' Exit if dialog box canceled
If FileName = False Then
MsgBox "No file was selected."
' Display full path and name of the file
GetImportFileName = FileName