Sub txtangle_FocusChanged(HasFocus As Boolean)
If HasFocus =False Then
Main.strbearing=txtangle.Text 'value containing decimal
If Main.strbearing.IndexOf (".")>0 Then 'test for decimal
Main.strbearing=Main.strbearing.Replace (".","") 'delete the decimal
End If
.
.
.
.
End If
End Sub