Sub test()
For i = 1 To Range('A65536').End(xlUp).Row
Cells(i, 2).Value = Left(Cells(i, 1).Value, InStr(1, Cells(i, 1).Value, '*') - 1)
Cells(i, 3).Value = mid(Cells(i, 1).Value, InStr(1, Cells(i, 1).Value, '*') + 1, InStr(1, Cells(i, 1).Value, '*') - 2)
Cells(i, 4).Value = Right(Cells(i, 1).Value, InStr(1, Cells(i, 1).Value, '*') - 2)
Next i
End Sub