rivate Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long 

Private Const KLF_ACTIVATE = 1 
Private Const LANG_BULGARIAN = &H2 
Private Const LANG_CHINESE = &H4 
Private Const LANG_CROATIAN = &H1A 
Private Const LANG_CZECH = &H5 
Private Const LANG_DUTCH = &H13 
Private Const LANG_DANISH = &H6 
Private Const LANG_ENGLISH = &H9 
Private Const LANG_FINNISH = &HB 
Private Const LANG_FRENCH = &HC 
Private Const LANG_GERMAN = &H7 
Private Const LANG_GREEK = &H8 
Private Const LANG_HUNGARIAN = &HE 
Private Const LANG_ICELANDIC = &HF 
Private Const LANG_ITALIAN = &H10 
Private Const LANG_JAPANESE = &H11 
Private Const LANG_KOREAN = &H12 
Private Const LANG_NEUTRAL = &H0 
Private Const LANG_NORWEGIAN = &H14 
Private Const LANG_POLISH = &H15 
Private Const LANG_PORTUGUESE = &H16 
Private Const LANG_ROMANIAN = &H18 
Private Const LANG_RUSSIAN = &H19 
Private Const LANG_SLOVAK = &H1B 
Private Const LANG_SLOVENIAN = &H24 
Private Const LANG_SPANISH = &HA 
Private Const LANG_SWEDISH = &H1D 
Private Const LANG_TURKISH = &H1F 

Public Function nasGetMultiDgital( _ 
    Optional lngNum As Long = 0, _ 
    Optional lngDigitPlace As Long = 0) As String 
 If lngDigitPlace <= 0 Then 
  nasGetMultiDgital = lngNum 
  Exit Function 
 End If 
 Dim strFormat As String 
 strFormat = String(lngDigitPlace, "0") 
 nasGetMultiDgital = Format(lngNum, strFormat) 
End Function 

Private Sub Command1_Click() 
 LoadKeyboardLayout nasGetMultiDgital(400 + LANG_ENGLISH, 8), KLF_ACTIVATE 
End Sub