4% output as 400%

[trsisko]

I have the following code. Problem is that 4% is output 400%?

            Case "P" 'Percentage
                If Not IsNumeric(m_Response) Then
                    MsgBox "Please enter a valid % !", vbCritical
                    txtInput.SetFocus
                    Exit Sub
                Else
                    m_Response = Format(m_Response, "0%")

 

[RoryA]

If you enter 4, then that is 400% (because 100% = 1). What you need is probably:

Format(m_Response / 100, "0%")

HTH

 

[Richard Schollar]

Hi

try the following:

m_Response = Format(m_Response, "0\%")

 

[trsisko]

works great. Thanks