Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
  Destination As Any, Source As Any, ByVal Length As Long)
Private Type Integer_T
    LowOrderB As Byte
    HighOrderB As Byte
End Type
 
Private Sub SwapBytes(ByRef int_t As Integer_T)
 
    Dim Buffer As Byte
 
    Buffer = int_t.LowOrderB
    int_t.LowOrderB = int_t.HighOrderB
    int_t.HighOrderB = Buffer
 
End Sub
 
Private Sub Form_Load()
 
    Dim FN As Long
    Dim Data1 As Integer
    Dim Datei As String
    Dim X As Integer_T
 
    Datei = ...
    FN = FreeFile
    Open Datei For Binary As FN
        Get FN, , X
    Close FN
    Call SwapBytes(X)
    Call CopyMemory(Data1, X, 2)
    ' ...