TextBox

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)?