Aide_Conversion Lb/Kg avec TextBox dans UserForm

Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Ici la valeur numérique du TextBox5 fonctionne bien avec une décimale ayant un point car lorsque
'c'était une virgule, la macro d'une autre feuille utilisant la valeur du TexTBox5 indiquait
'une erreur disant que ça devait être un nombre entier ou décimale.
'la valeur du TextBox5 s'inscrit dans une cellule de la feuille du UserForm
'puis cette même valeur est utilisée dans l'autre feuille où la macro donnait l'erreur.
'IDÉALEMENT J'AIMERAIS QUE L'USAGER PUISSE ENTRER UN POINT OU UNE VIRGULE
'ET QUE ÇA FONCTIONNE, EST-CE POSSIBLE???
If InStr("0123456789.", Chr(KeyAscii)) = 0 Then KeyAscii = 0
'J'AIMERAIS AVOIR UNE VALEUR MIN DE 20,0 ET MAX DE 70,0 AVEC UN CHIFFRE ÀPRÈS LE POINT
'MÊME SI UN NOMBRE ENTIER EST ENTRÉ, COMMENT FAIRE ???
TextBox5.MaxLength = 4
End Sub

Private Sub UserForm_Activate()
Lb_OptionButton1.Value = True
Lb_Kg_Label24.Caption = "Lb"
End Sub

Private Sub Lb_OptionButton1_Click()
Tension_Conversion_Kg_Lb
End Sub

Private Sub Kg_OptionButton2_Click()
Tension_Conversion_Lb_Kg
End Sub

Public Sub Tension_Conversion_Lb_Kg()
If Lb_Kg_Label24.Caption = "Lb" Then
TextBox5.Value = TextBox5.Value / 2.2045855
Lb_Kg_Label24.Caption = "Kg"
End If
End Sub

Public Sub Tension_Conversion_Kg_Lb()
If Lb_Kg_Label24.Caption = "Kg" Then
TextBox5 = TextBox5.Value * 2.2045855
Lb_Kg_Label24.Caption = "Lb"
End If
End Sub