convert formula to vba code

[krazyhype19]

Hi guys,

How can I write this formula in vba code:

RevName = "Randolph Wakabayashi"

Range("A1").Value =LOWER((Left(Right(RevName, Len(RevName) - Find(" ", RevName, 1)), 5)) & Left(RevName, 2))

Thanks!