TextBox

[Irenko 0]

Function Campo(obj As Object, Keyasc As Integer)
If Not ((Keyasc >= Asc("0") And _
Keyasc <= Asc("9")) Or Keyasc = 8) Then
  Keyasc = 0
  Exit Function
End If
If Keyasc <> 8 Then
  If Len(obj.Text) = 2  Then
	obj.Text = obj.Text + "-"
	obj.SelStart = Len(obj.Text)
  End If
End If
End Function

Como adapto a função acima para aceitar numericos e somente as letras © e (X)?

[Claudio Neto 3]

Tente assim:

 

if keyasc < 48 or keyasc > 50 then
  if keyasc <> 169 and keyasc <> 40 then
	 keyasc = 0
  end if
end if