Converting a binary file to hex>>file

[TDQWERTY]

This would be a project to read a binary file such dat files or exe files or even dlls but i found this extremely slow doing it. A 100kb file was taking ~1 minute, 1 mb file..well i gave up and closed the process.
I would like to see this working faster if there is a way to do it..

Option Explicit
 
Private Sub Command1_Click()
Dim arItems() As Byte
Dim sText$
Dim sTemp$
Dim i As Double
 
    Open "tmp001.dat" For Binary As #1
      ReDim arItems(LOF(1))
      Get #1, , arItems
    Close #1
    
    For i = LBound(arItems) To UBound(arItems) - 1
        sText = sText & Hex(arItems(i))
    Next i
    
    Open "hex_output.txt" For Append As #2
        For i = 1 To Len(sText) Step 32
            sTemp = Mid(sText, i, 32)
            Print #2, sTemp
        Next i
    Close #2
 
End Sub