[new_programer]

Dim numar As Double
If Double.TryParse(TextBox1.Text, numar) Then

Dim rmndr As Double
rmndr = numar Mod 1
If rmndr = 0 Then
Else
TextBox2.Text = Split(CStr(TextBox1.Text), ".")(1)
End If
End If

محتاح تعديل الكود بدل ال "."

"-"