Format a TextBox on a Userform to 2 decimal places

[Zaurb]

Hi!

Am having a similar issue as described in this post.

My code is as follows:

Private Sub cmdCalculate_Click()
If IsNumeric(Me.txt_odds.value) Then
    Me.txt_odds = Format(txt_odds.value, "0" & Application.DecimalSeparator & "00")
End If
Me.txt_Minimum = Format(100 / txt_odds.value, "0" & Application.DecimalSeparator & "00%")
End Sub

However, I get strange results. For example, if I input 1.5 in the first textbox and expect to see it as 1.50 after clicking calculate button, I see instead 15.00. However, if i write 2 it display correctly as 2,00.
Can you please help me?

Thanks!

 

[EXCEL MAX]

Hello Zaurub,
try to do something like this...

Private Sub cmdCalculate_Click()
    
    Dim vTR As String
    
    vTR = Replace(Me.txt_odds.Value, ".", ",")
    If IsNumeric(Me.txt_odds.Value) Then
         Me.txt_Minimum = Format(100 / vTR, "0.00") & "%"
    End If
   
End Sub

 

[Zaurb]

Hello Zaurub,
try to do something like this...

Private Sub cmdCalculate_Click()
   
    Dim vTR As String
   
    vTR = Replace(Me.txt_odds.Value, ".", ",")
    If IsNumeric(Me.txt_odds.Value) Then
         Me.txt_Minimum = Format(100 / vTR, "0.00") & "%"
    End If
  
End Sub

Thank you very much!
Results calculating correctly. But i still don't get 2 decimal points. Is there any fix for that? Thanks again!

 

[Zaurb]

Thank you very much!
Results calculating correctly. But i still don't get 2 decimal points. Is there any fix for that? Thanks again!

2 decimal points in txt_odds textbox

 

[Zaurb]

resolved making a little modification as follows:

Dim vTR As String

    vTR = Replace(Me.txt_odds.value, ".", ",")
    Me.txt_odds = Format(vTR, "0.00")
    If IsNumeric(Me.txt_odds.value) Then
         Me.txt_Minimum = Format(100 / vTR, "0.00") & "%"
    End If

 

[EXCEL MAX]

Yes, now is correct. I'm glad that you were capable to understand the point.