Text Box Str yardımı

[siar]

Merhabalar açmış olduğum iki adet text box içerisinde birisine saat diğerine de para birimi giriyorum. fakat aşağıdaki kodda (Time) veya (Currency) değerlerini yazdığımda hata veriyor. Buraya ne yazmam gerekiyor acaba?

Private Sub TextBox32_Change()
TextBox32.Text = Str(Time)
End Sub

Ya da formun açıldığı zamanki saati nasıl text box a getirebilirim?

 

[Seyit Tiken]

Bu kodu bir deneyin.

Private Sub UserForm_Initialize()
TextBox1.Value = Format(Now, "hh:mm AM/PM")
End Sub