Vba question

[Giggzz]

If r.Value > 0 Then r.Value = r.Value - (r.Value * Len(Right(UserForm6.TextBox1.Value) - 1))

in the above code Im trying to remove the % in the the textbox to get the proper result. Getting the error argument not optional and the right is highlighted.

 

[RoryA]

If r.Value > 0 Then r.Value = r.Value - (r.Value * Right(UserForm6.TextBox1.Value, Len(UserForm6.TextBox1.Value) - 1))

or if this code is in userform6:

If r.Value > 0 Then r.Value = r.Value - (r.Value * Right(Me.TextBox1.Value, Len(Me.TextBox1.Value) - 1))

 

[Giggzz]

Thank you,

Private Sub totalTextBoxes()
Dim RunningSum As Single
RunningSum = 0
With UserForm6
    Do While .TextBox2.Value = ""
       UserForm6.Show
    Loop
    .TextBox4.Text = Val(.TextBox2.Value) - Val(.TextBox3.Value)
    .[B]TextBox5.Text = Val(.TextBox2.Value) / Val(.TextBox3.Value[/B])
    
End With
End Sub

Trying to add a format in textbox5 to show the percent as 65.27 instead of .672745611??

 

[RoryA]

.TextBox5.Text = Format(Val(.TextBox2.Value) / Val(.TextBox3.Value), "0%")