Kod:
Private Sub Metin0_Exit(Cancel As Integer)
If Me.Metin0 = Format(Me.Metin0, "General Number") Then
Me.Metin2 = Format(Me.Metin0, "General Number")
Me.Metin4 = ""
Else
Me.Metin2 = Left([Metin0], InStr([Metin0], ".") - 1)
Me.Metin4 = Mid([Metin0], InStr([Metin0], ".") + 1)
End If
End Sub