Così dovrebbe andare:

codice:
TextBox3.Text & "_" & Format(Date, "YYYYMMDD") & "-" & Format(Time,"HHNNSS") & ".txt"
Se TextBox3.Text contiene PIPPO il risultato sarebbe simile a questo:

PIPPO_20100520_134312.txt