Texbox' da sayısal verinin dönüşümü

[tamer42]

Merhaba,
Userform' da bir Texbox' a bir hücreden veri aldıktan sonra; Texbox' daki sayısal veriyi başka bir hücreye aktarmak istersek önce bir değişkene atama yaptığım zaman;

Aşağıdaki kodda bu değişkeni double olarak tanımladığım zaman 2,5 verisini 25 olarak aktarıyor. Bu durumda aşasıdaki kodda "a" değişkeni nasıl tanımlamalıyız?
Burada "a" değişkeni almam gerekiyor, daha sonra bu değeri çarpma işleminde kullanacağım.

Private Sub UserForm_Activate()

Me.TextBox1 = Sheets("Siparis").Range("I11")
End Sub

Private Sub CommandButton1_Click()
Dim a
a = Me.TextBox1.Value
Sheets("Report").Range("N2") = a
End Sub

Teşekkürler,
iyi pazarlar

 

[dEdE]

Merhaba,
Benzer bir sorunu ben de yaşamış ve val işlevini kullanarak çözmüştüm.
Belki işinize yarar.

    a = Val(Me.TextBox1.Value)