Snasui Excel Forum

Code: Select all

Dim NameFound As Byte
    Dim fPath As String
    Set NameFound = TextBox1 * 1
    
    If NameFouond Is Nothing Then
         Image1.Picture = LoadPicture(fPath & "nopic.jpg")
    Else
         With NameFound
              fPath = ThisWorkbook.Path & "D:\All new Pic"
              Image1.Picture = LoadPicture(fPath & "\" & TextBox1.Value & ".jpg")
          End With
    End If