Private Sub Command4_Click() Text1.Text = Text1.Text + "." If (InStr(Text1.Text, ".") = 1) Then Text1.Text = "" End If If InStr(Text1.Text, ".") < Len(Text1.Text) Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) End If End Sub