Sub chgname
Dim lt, ans As Int
Dim mycw As List
mycw.Initialize
lt = RecordCount
For l = 0 To lt -1
Pointer = l
GetRecord
mycw = Regex.Split(" ", Field(0))
If mycw.Size = 2 Then
Field(0) = s.Trim(mycw.Get(1)) & ", " & s.Trim(mycw.Get(0))
UpdateRecordNameSwap
End If
If mycw.Size = 3 Then
Field(0) = s.Trim(mycw.Get(2)) & ", " & s.Trim(mycw.Get(0)) & " " & s.Trim(mycw.Get(1))
UpdateRecordNameSwap
End If
Next
Pointer = 0
GetRecord
mycw.Clear 'Throws an error - Java.lang.type
End Sub