TextBox1 deki değerin % hesabı

[kelkitli]

Değerli Dostlar Selamlar,
TextBox1 de 105,40 şeklinde parasal miktar var.
Sayfa1 A1 de 1,8 yazılı

UserForm1.TextBox2.Value = CInt(UserForm1.TextBox1.Value) * Sayfa1.Range("A1")

şeklinde denemelerle sonuç alamadım.

TextBox2 ye TextBox1 deki değerin % 1,8 ini TextBox1 deki formata uygun olarak TextBox2 ye hesaplatmak istiyorum. Nasıl doğru sonuç alabilirim.
Yada TextBoxların formatını değiştirmemmi gerekir. Şu an ki format şöyle:

Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1.Text, "#,##0.00")
End Sub

 

[Ayhan Ercan]

Merhaba

Aşağıdaki gibi deneyiniz...

UserForm1.TextBox2.Value = Format(Val(UserForm1.TextBox1.Value) * Sayfa1.Range("A1") / 100, "#,##0.00")

 

[kelkitli]

Sayın Ayhan ERCAN,
Teşekkür ederim. Bilgilerine, emeğine sağlık.