Sub euler22()
  Dim c1 As Single, c2 As Long, T As Long, j As Integer, jj As Integer, Rng As Range
  Const c0 = “ACDEFGHIJKLMNOPQRSTUVWXYZ”
   
  T = Timer
  Open “E:download
ames.txt” For Input As #1
    sq = Split(Mid(Input(LOF(1) – 1, #1), 2), “”“,”“”)
  Close #1

  Workbooks.Add
  Set Rng = ActiveWorkbook.Sheets(1).Cells(1, 1).Resize(UBound(sq) + 1)
  Rng = Application.WorksheetFunction.Transpose(sq)
  Rng.Sort [A1]
  sq = Rng
   
  For j = 1 To UBound(sq)
    c1 = 0
    For jj = 1 To Len(sq(j, 1))
      c1 = c1 + InStr(c0, Mid(sq(j, 1), jj, 1))
    Next
    c2 = c2 + (c1 * j)
  Next
   
  Debug.Print “total: “ & c2 & ” time: “ & Timer – T
End Sub

Sub euler22()
  Dim c0 As String, c1 As Long, c2 As Long, t As Single
   
  t = Timer
  c0 = “ACDEFGHIJKLMNOPQRSTUVWXYZ”
  Workbooks.Open “E:download
ames.txt”
  With ActiveWorkbook.Sheets(1)
    sq = Split(Replace(Join(Split(.Range(“A1″), “”“,”“”), “|”), “,” & Chr(34), “|”), “|”)
    .Range(“A1″).Resize(UBound(sq)) = Application.WorksheetFunction.Transpose(sq)
    With .Columns(1)
      .Sort [A1]
      sq = .SpecialCells(xlCellTypeConstants)
    End With
  End With
  For j = 1 To UBound(sq)
    c1 = 0
    For jj = 1 To Len(sq(j, 1))
      c1 = c1 + InStr(c0, Mid(sq(j, 1), jj, 1))
    Next
    c2 = c2 + c1 * j
  Next
  t = Timer – t
  Debug.Print “total “ & c2 & ” time “ & t
End Sub