Перевод кода из С++ в Visual Basic 6

Option Explicit
 
Private Sub Form_Load()
    Dim ff      As Integer
    Dim char()  As Byte
    Dim File    As String
    
    File = "c:\users\alex\desktop\WinDbg.txt"
    
    ff = FreeFile()
    Open File For Binary Access Read As #ff
        ReDim char(LOF(ff) - 1)
        Get #ff, , char()
    Close #ff
    
    Stop
End Sub

    Dim fp, fp1
    Dim buffer(500) As String
 
    fp = FreeFile                    
    Open ("11111.txt") For Input As #fp    
    
    fp1 = FreeFile                   
    Open ("22222.txt") For Output As #fp1

Option Explicit
 
Private Sub Form_Load()
    Dim ff      As Integer
    Dim s  As String
    Dim File    As String
    
    File = "c:\users\alex\desktop\WinDbg.txt"
    
    ff = FreeFile()
    Open File For Binary Access Read As #ff
        s = String(Lof(ff), vbnullchar)
        Get #ff, , s
    Close #ff
    
    Stop
End Sub

Dim i as long
for i = 1 to Len(s)
  debug.? mid$(s, i, 1)
next

   Dim transaction_time_hour As Integer, transaction_time_min As Integer, transaction_time_sec As Integer
     
   Dim last_stock_market As Double
   Dim last_time_transaction As Double
 
   Dim i As Integer, j  As Integer 
     
    If last_stock_market = i And last_time_transaction = CDbl(transaction_time_hour * 3600 + transaction_time_min * 60 + transaction_time_sec) Then
      ' continue
   Else
      last_stock_market = i
      last_time_transaction = CDbl(transaction_time_hour * 3600 + transaction_time_min * 60 + transaction_time_sec)
      j = j + 1
   End If

    Dim total_no_transactions As Integer
    total_no_transactions = 1000
 
    Dim streaming_data() As Single  
 
    ' ...
 
    Dim last_timestamp As Integer
 
    last_timestamp = CInt(streaming_data(total_no_transactions - 1, 1))

Dim last_timestamp As LONG 'Integer

    Dim last_timestamp As Long   
    last_timestamp = CLng(streaming_data(total_no_transactions - 1, 1))

    fp = FreeFile()
    Open File For Input As #fp
 
    Do Until EOF(fp)
 
    Line Input #fp, myStr
Loop

Dim transaction_time_hour as long
Dim transaction_time_min as long
Dim transaction_time_sec as long
Dim transaction_time_total as long
Dim i as long, j as long
 
Dim last_stock_market as Single: last_stock_market = -1
Dim last_time_transaction as Single: last_time_transaction = -1
 
transaction_time_total = transaction_time_hour*3600 + transaction_time_min*60 + transaction_time_sec
 
if (last_stock_market <> i Or last_time_transaction <> transaction_time_total) then
        last_stock_market = i
        last_time_transaction = transaction_time_total
        j = j + 1
end if