Visual Basic

imagePixelFormat = PixelFormat.Format24bppRgb;
bmp = new Bitmap(imageWidth, imageHeight, imagePixelFormat);

PixelArray = new byte[(int)imageWidth * imageHeight * bmpStride];
for (int r = 0; r <= this.DPXHeight - 1; r += scaleFactor)
{
       long readPosition = r * dpxStride;
       // set the filestream position for reading
       fs.Position = this.DPXOffset + readPosition;
       // set the position in the PixelArray
       long writePosition = readPosition / scaleFactor / scaleFactor / rawStride * bmpStride;

       int c = 0;
       for (c = 0; c <= (this.DPXWidth * bmpStride / scaleFactor) - 1; c += 3)
       {
              UInt32 mybuff = SwapDWORD(br.ReadUInt32());
              // bit-shifting operation
              PixelArray[writePosition + c] = (byte)((mybuff & 0xffc) >> 4);
              // Blue
              PixelArray[writePosition + c + 1] = (byte)((mybuff & 0x3ffffc) >> 14);
              // Green
              PixelArray[writePosition + c + 2] = (byte)((mybuff & 0xfffffffc) >> 24);
              // Red
                        
              // skip some pixels in the row
              for (int j = 1; j <= scaleFactor - 1; j += 1) 
              {
                     br.ReadUInt32();
              }
       }
}

Dim xl As New Excel.Application
Dim xlsheet As Excel.Worksheet
Dim xlwbook As Excel.Workbook

Dim ExcelFile As String
Dim ExcelPassword As String
Dim ExcelNword As String
Dim i As Integer


Private Sub Command1_Click()
For i = 1 To 6
 Set xl = CreateObject("Excel.application")
  xl.Visible = False

  

  ExcelFile = "D:\Users\Test\Desktop" + "\test1.xls"
 
  
  On Error GoTo ErrorHandler

ExcelNword = Conversion.CStr(i)
ExcelPassword = "ABC" + ExcelNword
 Set xlBook = xl.Workbooks.Open(FileName:=ExcelFile, _
Password:=ExcelPassword)
ErrorHandler:
   MsgBox Err.Description, , "Error"
   xl.Quit
 Next i
 
    
End Sub

Set xlBook = xl.Workbooks.Open(FileName:=ExcelFile, _
Password:=ExcelPassword)

Set xlBook = xl.Workbooks.Open(FileName:=ExcelFile, _
Password:=ExcelPassword)

Sub Button1_Click()

Dim xl As New Excel.Application
Dim xlsheet As Excel.Worksheet
Dim xlwbook As Excel.Workbook

Dim ExcelFile As String
Dim ExcelPassword As String
Dim i As Integer

'Set Filename
ExcelFile = "C:\Users\Dave Auld\Desktop\password_test.xlsx"

'Create Excel Application
Set xl = CreateObject("Excel.application")
xl.Visible = False

On Error Resume Next

For i = 1 To 6
 ExcelPassword = "ABC" + CStr(i)
 
 Set xlBook = xl.Workbooks.Open(Filename:=ExcelFile, Password:=ExcelPassword)

    If Err.Number > 0 Then
        MsgBox "Error: " + Err.Number + ": " + Err.Description, , "Error"
        'Reset the error for next loop
        Err = 0
    Else
        'No Error - File Opened okay
        MsgBox "File Opened with Password " + ExcelPassword
        'Stop Seraching
        Exit For
    End If
 Next i
 'Quit Excel
    xl.Quit

End Sub

Imports Excel = Microsoft.Office.Interop.Excel

Public Class Form1
    Dim xl As New Excel.Application
    Dim xlwbook As Excel.Workbook

    Dim ExcelFile As String
    Dim ExcelPassword As String
    Dim ExcelNword As String

    Private Sub btnStart_Click() Handles btnStart.Click

        xl.Visible = False
        ExcelFile = "D:\" + "text.xls"

        For i = 1 To 6
            Try
                ExcelNword = CStr(i)
                ExcelPassword = "ABC" + ExcelNword
                xlwbook = xl.Workbooks.Open(Filename:=ExcelFile, Password:=ExcelPassword)
                MsgBox(String.Format("Workbook could be opened with password {0}", ExcelPassword))

            Catch ex As Exception
                If Err.Number = 1004 Then
                    MsgBox(String.Format("'{0}' is the wrong password!", ExcelPassword), , "Error")
                Else
                    MsgBox(String.Format("Fehler {0}: {1}", Err.Number.ToString, Err.Description), , "Error")
                End If
            End Try
        Next i

        xl.Quit()
        xlwbook = Nothing
        xl = Nothing

    End Sub
End Class

ExcelFile = "D:\Users\Test\Desktop\test" & i &".xls"