Private Sub Komut4_Click() On Error Resume Next Me.Metin2.Value = Asc(Me.Metin0.Value) End Sub Private Sub Komut5_Click() Metin2.Value = " " Metin0.Value = " " Metin0.SetFocus End Sub