bütün textboxlara bir kerede biçim verme

[wqazx]

aşağıdaki tarih biçimini ayrı ayrı 4 tane textbox için yazıyorum.txttarih1-txttarih2-txttarih3-txttarih4. hepsi için tek bir kerede yazma imkanı yok mu acaba?

Private Sub txttarih1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
txttarih1 = Mid(txttarih1, 1, 2) & " " & Mid(txttarih1, 3, 2) & " " & Right(txttarih1, 4)
End Sub
-------------------------------------------------
Yine aşağıdaki para biçimini biçimini ayrı ayrı 4 tane textbox için yazıyorum.txtkasa1-txtkasa2-txtkasa3-txtkasa4.Bunları da aynı makro içinde bir kez yazma durumu yok mu?

Private Sub txtkasa1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
kasa1.Value = Format(kasa1.Value, "#,##0.00 YTL")
End Sub

 

[ALPEN]

http://www.excel.web.tr/viewtopic.php?t=289

http://www.excel.web.tr/viewtopic.php?t=1927

 

[wqazx]

Sn.Alpen
bu örneklerde textbox kelimesi kullanılıyor.Benim userformumda tarih ve para birimi girilecek texboxlar yanyana.Yani hepsi aynı biçimde olmayacak.
Macroları çok iyi bilmediğim için şu yapacağım tarif belki komik olabilir ;
Yani mesela;
tarih biçimim(txttarih1 +ttxtarih2+txttarih3)
para biçimim(txtodeme1+txtodeme2+txtodeme3) gibi.