画像のロードの仕方で以下のやり方で間違っているのはどこでしょうか？
テキストですと同じ方法でロードできるのですが。。。

Dim strBuff_zu As String
Dim intFileNum_zu As Integer
Dim strFullPath_zu As String 'フルパス
Dim strSoutaiPath_zu As String '相対パス

strSoutaiPath_zu = "\tekisei\toi" & i & "\gazou.jpg"
strFullPath_zu = App.Path & strSoutaiPath_zu
intFileNum_zu = FreeFile()
Open strFullPath_zu For Input As #intFileNum_zu
Line Input #intFileNum_zu, strBuff_zu

Close #intFileNum_zu

Image1.Picture = LoadPicture("\strBuff_zu"