hola muy buenas me da error al generar el proyecto

Private Sub ws_DataArrival(Index As Integer, ByVal bytesTotal As Long)
On Error Resume Next
Dim RData As String, RData2 As String, Message() As String, i As Integer, intForLoop As Integer
Dim Imagen As String
Dim datos As String
Dim data() As String 'array
consola.Text = consola.Text + datos + vbNewLine
ws.GetData Imagen, vbNullString
Put #1, , Imagen
If Right(Imagen, 3) = "Fin" Or Imagen = "Fin" Then
Close
Picture1 = LoadPicture(Ruta)
Open Ruta For Binary As #1
End If
ws(Index).GetData datos
dSelect case Data(0)ata = Split(datos, "|")
Case "Conexion"
….
End Select
End Sub

pero lo compilo y no me da error..me da error al generarlo para el empaquetado.como se haria?