contact way

[AhmedRady]

Hello All,
i make a simple user form to collect some data related to customers i make Frame contact 2 options
call
mail
i need when the user select call an Text box active to write numbers only

 

[DanteAmor]

Try this

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If OptionButton1 = True Then
        If KeyAscii < 48 Or KeyAscii > 57 Then
            KeyAscii = 0
        End If
    End If
End Sub


Private Sub UserForm_Activate()
    OptionButton1.Value = True
End Sub