Return Right 4 Digits, Including Preceding Zeroes

[reberryjr]

I'm trying to get the last 4 digits from a text box, to populate a worksheet. The issue is, when there are preceding zeroes in the 4 digits, they're not coming over. Example, if the text box has 1230456, I'm only getting 456 to come over. I need to get the 0456 to come over. I tried these snippets, but they don't return the desired results.

 flpws4.Range("H" & flpLastRow4 + 1).Value = Format(Right(Me.cobo_AcctNum, 4), "####")
    flpws4.Range("H" & flpLastRow4 + 1).Value = Right(Me.cobo_AcctNum, 4)

Thoughts?

 

[Rick Rothstein]

I'm trying to get the last 4 digits from a text box, to populate a worksheet. The issue is, when there are preceding zeroes in the 4 digits, they're not coming over. Example, if the text box has 1230456, I'm only getting 456 to come over. I need to get the 0456 to come over. I tried these snippets, but they don't return the desired results.

 flpws4.Range("H" & flpLastRow4 + 1).Value = Format(Right(Me.cobo_AcctNum, 4), "####")
    [B][COLOR="#FF0000"]flpws4.Range("H" & flpLastRow4 + 1).NumberFormat = "@"[/COLOR][/B]
    flpws4.Range("H" & flpLastRow4 + 1).Value = Right(Me.cobo_AcctNum, 4)

Thoughts?

Try adding what I show in red above.

 

[reberryjr]

Thank you @Rick Rothstein! That worked. I wasn't even aware I could have duplicate lines for the same field without something like an IF statement.