Use Keydown to change character displayed

[mieds]

Hi,

I am trying to use the following sub to change a period to a colin
when entered in a textbox. This code only produces a semi-colin, can
someone please point out what I am doing wrong or provide a different
way to accomplish this.

Thanks

Private Sub Text0_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode
Case 190
KeyCode = 186
Case Else
'Debug.Print KeyCode, Shift
End Select

End Sub

 

[mieds]

Thanks that worked great. I tried to assign a shift, but could not
figure it out either.