Sub Stooges()
' 20011209
  Dim i As Long
  Dim char As String
  Dim charC As String
 
  Debug.Print "' UCase Stooges"
  For i = 0 To 255
    char = Chr$(i)
    charC = UCase$(Chr$(i))
    If char <> charC Then
      If AscW(char) > 255 Or AscW(charC) > 255 Then
        Debug.Print "' "; char; i; "/"; AscW(char), charC; Asc(charC); "/"; AscW(charC)
      End If
    End If
  Next
  
  Debug.Print "' LCase Stooges"
  For i = 0 To 255
    char = Chr$(i)
    charC = LCase$(Chr$(i))
    If char <> charC Then
      If AscW(char) > 255 Or AscW(charC) > 255 Then
        Debug.Print "' "; char; i; "/"; AscW(char), charC; Asc(charC); "/"; AscW(charC)
      End If
    End If
  Next
  
End Sub