Sub set_language(Optional ByVal Scur As String)
Dim WSH As Object
Dim ico As String
Dim tBa As Object
Const hKey = _
  "HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\OFFICE\10.0\Outlook\Options\Spelling\S" & _
  "eller"
Set WSH = CreateObject("WScript.Shell")
If Scur = "" Then Scur = WSH.RegRead(hKey)
Select Case Scur
    Case "1031\Normal" ' German (Germany)
        WSH.RegWrite hKey, "1033\Normal", "REG_SZ"
        WSH.RegWrite hKey & "X", "English (U.S.)", "REG_SZ"
    Case "1033\Normal" ' English (U.S.)
        WSH.RegWrite hKey, "2057\Normal", "REG_SZ"
        WSH.RegWrite hKey & "X", "English (U.K.)", "REG_SZ"
    Case "2057\Normal" ' English (U.K.)
        WSH.RegWrite hKey, "1031\Normal", "REG_SZ"
        WSH.RegWrite hKey & "X", "German (Germany)", "REG_SZ"
    Case Else
        WSH.RegWrite hKey & "X", "Unexpected value at Speller", "REG_SZ"
        MsgBox spL & " is an unexpected value!" & vbCrLf & "Please adjust" & _
          "language manually."
        Exit Sub
End Select
End Sub