VBA COUNTA Userform

I have a Userform with several textbox and a command button, when the information is entered and submitted the information is transfer to the first empty row, I need a code that would counta text within 4 columns within that row.

So translate =IF(IsBlank($A2),"",COUNTA(E2:H2) to VBA code, to calculate after the user submitted the information.