Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 
    If KeyAscii = vbKey0 Or KeyAscii = vbKeyNumpad0 Then 
      KeyAscii = Asc("ð")
    End If 
  End Sub

Gruss,

Zardoz

Beitrag wurde zuletzt am 13.12.18 um 14:12:51 editiert.