Como usar uma função IF ao definir uma string?

Question

Não é possível escrever

STRINGA = "NamewordStuff" & Format(Date, "YYYY-MM-DD") & "-" & Hours(Now) & _
If Minute(Now)<10 then
    "0" & Minute(Now)
Else
    Minute(Now)
End If _
& ".xlsm"

Como alguém poderia fazer isso da maneira mais, suponho, elegante?

Answer 1

Você pode usarIif:

STRINGA = "NamewordStuff" & Format(Date, "YYYY-MM-DD") & "-" & Hours(Now) & _
Iif(Minute(Now)<10,    "0" & Minute(Now),    Minute(Now)) & ".xlsm"

Answer 2

Ou formate o número:

STRINGA = "NamewordStuff" & Format(Date, "YYYY-MM-DD") & "-" & Hours(Now) & _
     Format(Minute(Now),"00") & "xlsm"