Option Explicit
#If Win64 Then
Dim HKLsystem As LongPtr, HKLarabic As LongPtr
#Else
Dim HKLsystem As Long, HKLarabic As Long
#End If

Private Sub TextBox1_Enter()
  ActivateKeyboardLayout HKLarabic
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  ActivateKeyboardLayout HKLsystem
End Sub

Private Sub UserForm_Initialize()
  HKLsystem = LoadKeyboardLayout(GetKeyboardLCID)
  HKLarabic = LoadKeyboardLayout(1025)
End Sub

Private Sub UserForm_Terminate()
  ActivateKeyboardLayout HKLsystem
  UnloadKeyboardLayout HKLarabic 
End Sub

Private Sub Example_KeyboardLayout()
#If Win64 Then
  Dim SaveHKL As LongPtr, NewHKL As LongPtr, ThisHKL As LongPtr
#Else
  Dim SaveHKL As Long, NewHKL As Long, ThisHKL As Long
#End If
  'Get the current keyboard layout
  SaveHKL = LoadKeyboardLayout(GetKeyboardLCID)
  'Load the arabic keyboard layout
  NewHKL = LoadKeyboardLayout(1054)
  If NewHKL = 0 Then
    MsgBox "This keyboard layout is not supported by your system."
    Exit Sub
  End If
  'Activate it
  ThisHKL = ActivateKeyboardLayout(NewHKL)
  If ThisHKL = NewHKL Then
    MsgBox "Unable to activate keyboard layout"
  End If
  
  'Type an "y" now!
  Stop
    
  'Restore the keyboard layout
  ActivateKeyboardLayout SaveHKL
  UnloadKeyboardLayout NewHKL
End Sub

#If Win64 Then
'*' ændres til
#If VBA7 Then