Ошибка в VBA.Type-mismatch. Где я неверно указала тип переменной?

[mozart2012]

Выдает ошибку Type-mismatch

есть функция

Function PictureQw() As Integer
 Dim QwWithPic As Integer
 QwWithPic = Sheets("Var").Cells(1, 2)
 PictureQw = QwWithPic
 
End Function

значение которой я присваиваю переменной вот в этой процедуре:

Sub FrmContent(QwNum As Integer)
Dim RwCnt As Integer
Dim FrameSelect As Boolean
Dim AnsQuan As Integer
Dim QwPic As Integer
   QwPic = PictureQw
  Select Case QwPic
    Case 8
     frmTest.imgQw.Picture = ("Практическая часть\ch2_qw8\pic1.jpeg")
    Case 9
     frmTest.imgQw.Picture = ("Практическая часть\ch2_qw9\pic2.jpeg")
    Case 11
     frmTest.imgQw.Picture = ("Практическая часть\ch2_qw11\pic3.jpeg")
    Case 14
     frmTest.imgQw.Picture = ("Практическая часть\ch2_qw14\pic4.jpeg")
    Case 15
     frmTest.imgQw.Picture = ("Практическая часть\ch2_qw15\pic5.jpeg")
    Case 18
     frmTest.imgQw.Picture = ("Практическая часть\ch2_qw18\pic6.jpeg")
     Else: frm.imgQw.Visible = xlVeryHidden
   End Select

это не вся процедура, но все, что написано после этого, работает отлично,так что ошибка здесь. Где несоответствие типов, подскажите пожалуйста) Заранее спасибо

[Aleksandr_59]

Смотри через отладчик - в какой строке ошибка выскочит.

[mozart2012]

выскакивает ошибка, выделяет ("Практическая часть\ch2_qw8\pic1.jpeg")
Но не понимаю, где надо указать тип ...ведь это не переменная ворде.. просто я очень мало знакома с vba )

[EUGY]

frmTest.imgQw.Picture - это видимо объект
Ему надо присвоить другой объект, а не строку.
Может что-то типа :
Set frmTest.imgQw.Picture = LoadPicture("Практическая часть\ch2_....")

[mozart2012]

EUGY, спасибо большое) Но все равно почему-то не получается.. я поняла, что вы имели в виду) а какие ещё бывают свойства объекта? простите за некорректный вопрос сразу, если это так)