Frage an die Profis

Function My_IsNumeric(Txt As String) As Boolean
If (Txt  "") And (Not IsNumeric(Txt) Or InStr(Txt, ".")  0) Then
My_IsNumeric = False
Else
My_IsNumeric = True
End If
End Function
Private Sub TextBox2_Change()
Dim Txt As String
Txt = TextBox2.Text
If My_IsNumeric(Txt) Then
Exit Sub
Else
Beep
MsgBox "Bitte eine gültige Zahl eingeben (Komma, kein Punkt)!", vbCritical
TextBox2.Text = ""
End If
End Sub

Private Sub TextBox3_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim k As Integer
k = TextBox2.Text
k = Replace(k, " [N/kg]", "")
k = s & " [N/kg]"
TextBox2 = k
End Sub